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DISCLAIMER 


The supplied software is intended for use only as described in the manual. Use of 
undocumented features or parameters may cause unpredictable results for which Technical 
Systems Consultants, Inc. cannot assume responsibility. Although every effort has been 
made to make the supplied software and its documentation as accurate and functional as 
possible, Technica] Systems Consultants, Inc. will not assume responsibility for any 
damages incurred or generated by such material. Technical Systems Consultants, Inc. 
reserves the right to make changes in such material at any time without notice. 


TEXT EDITING SYSTEM 


INTRODUCTION 
Contained In the following pages is a complete description and source 
listing of the TSC Text Editing System: This system is a content orlented 
text editor which Is powerful, simple to use, and easy to learn. Particu- 
lar attention should be pald to the section titled "Adapting to Your System'’. 
As In all TSC software, a great effort has been put forth in testIng 
to eliminate "bugs" in the code. This however Is no guarantee of perfect 
code. If a suspected bug is spotted, please jot down the circumstances 


Involved and send It to TSC. Errata sheets with all patches will be sent 


to owners If necessary. 


GETTING THE SYSTEM STARTED 
After all of the code has been entered, and all of the adaptations to 
your system have been made, start executing the program at location 200 hex. 


The system should respond with: 


NEW FILE: 
1.00 = 


The system is now ready to accept the text file input from the keyboard, 
{f the editor is left and later It is desirable to reenter the editor to 
work on the previous text file, it is necessary to enter at location 203 
hex, otherwise all workspace will be cleared. If a system contalning 


MIKBUG™ Is used this "'restart'' address will automatically be used on a ''G!' 


comnand. 


MINI-TUTORIAL 


The purpose of this section is to briefly introduce the reader to the 
use of the TSC Text Editing System. We will, therefore, illustrate its 
use with a number of examples. In order to make [t more obvious what 
things are typed by the user and what things are displayed by the editor, 
we will subscribe to the convention that things underlined are user-typed 
and things not underlined are displayed by the editor. 

When the editor is initially entered, the response is as shown above. 
At this time we will create our file by simply typing all lines untI] 


finished, terminating each line with a "'carrfage return". 


NEW FILE? 
1.00 =THIS 1S AN EXAMPLE QF THE FANTASTICALLY USEFUL 
2.00 =TSC TEXT j TEM, A NUMBER 
3.00 
4.00 





5.00 =FOLLOWING ARE SOME NONSENSE LINES? 
6.00 =ABRCDEFGHI JRL. 

7.00 =AAAARAAA 

8.00 =TESTING 1234 

9.00 =THIS EDITOR IS FUN TO USE! 


10,00 =BRRRREBBR 








11.00 = 

12.00 =THIS IS THE END OF THIS FILE, 
13.00 =QAT_ LEAST FOR NOW. 

14.00 = 


+ 
13.00 =AT LEAST FOR NOW, 


i 


# 


Notice it was necessary to type a pound sign (#) in column one to leave 
the buffered input mode. At this time, the system printed the last line 
and returned with the system prompt (a pound sign). The editor is now 
ready to accept commands. 

Any time characters are being typed into the editor the following two 


characters have special meaning: 
1. "control'' H - Deletes the last character typed (backspace) . 
2. ''control"' X - Deletes entire current line belng typed. 


These are useful, when detected typing errors occur, for immediate correction. 
Each line of text In the edit file ts given or has a line number which 


Is used by the editor to uniquely Identify the line. Each line number is 


of the form 'm.nn'' where ''m'' is an Integer and ''n'' represents any of the 
digits 0 through 9. To specify a line number, one has to specify only that 
portion of the line number to identify it uniquely. For example, 73, 73., 
73.0, and 73.00 may be used to refer to line 73.00; 259.6 refers to line 
259.60. The largest line number used with the editor is 9999.99. Let's 
denote a specification of a line of text by the symbol '<line>''. We will 
be using this symbol throughout this document. 

An editor command tells the editor what action is to be performed and 
usually what line or block of lines are to be affected (if any). For each 
editing factlity supported by the editor, there is a directive which Is 
used in commands to Indicate the desired action. For example, the editor 
can delete lines of text from a file, insert lines of text Into the file, 
print lines contained In the file, and $o on. Corresponding to each 
capability there is a directive; hence, there is a Delete directive, an 
insert directive, a Print directive, and so on. If we define the symbol 
<directive> to mean any editor directive, the basic from of an edit command 


Is 
<line><directive> 


For example, the command to display (Print) line 12.00 is 


#12 F 
12.00 =THIS IS THE END OF THIS FILE» 


+ 


where ''12'' is the <line> specification and ''P'' is the <directive> [In this 
command. As can be seen in the example, this causes line number 12 to 
be printed on the terminal. 

Now let's learn how to use the Insert directive. In normal usage of 
the word "insert!'' we say something like, "Insert this card after this other 
card."" To use the Insert directive, we specify the line after which we 


want to insert new lines followed by an I: 
<line>I 


After typing the directive followed by a carriage return, the editor will 
select an appropriate line number and prompt for Input by displaying the 
line number followed by an equal sign. After each line of text Is entered 


and the carriage return Is typed, the editor will prompt for the next lIne. 
To exit from the ''Insert mode'' one simply types a pound sign followed by 
an edit directive in response to a new line prompt. 


Some examples of the use of Insert are 


#81 


8.10 =THIS IS AN INSERTEM LINE. 
8.20 =$O IS THIS, 





8.30 =#11 I 
11.10 =ANOTHER INSERTED LINE, 
11.20 =#6 F 


6.00 =ABCDEFGHI IKI. 


It should be noted that the editor may renumber some Jines following 
the Inserted text. This occurs when enough Jines are Inserted such that 
the Inserted line numbers overlap line numbers in the original text. 

Next, let's learn how to use the Delete directive. With this directive 
we can delete one line or a block of lines with one directive. To delete 


only one IIne, we specify the <line> to be deleted followed by a D: 
<line>D 


When the carriage return is typed, the IIne disappears. 

To delete more than one IIne we need to Indicate not only the first 
lIne to delete but also the last line to be deleted. Let's call the last 
line the "'target'' line and denote its specification as ''<target>''. Although 
the editor supports fancier ways to specify the <target>, we'll just con- 
sider the two simplest: (1) <target> may be the number of lines to be 
deleted (counting both the first and last line of the block), or (2) <target> 
may be a pound sign followed immediately by the Ilfine number of the last 
line of the block to be deleted. Some example <target>s are: 3 (delete 
three lines), 26 (delete 26 lines), and #26 (delete IInes through Tine 
26.00). 

The syntax to Delete a block of lines ts 


<line>D <target> 


where <line> Indicates the first line to delete and <target> Indicates the 


scope of the delete. 
To illustrate the use of the Delete directive, let's assume we have a 


file containing 53 lines with integer line numbers (f.e., 1, 2, 3, ..., 53). 


With the directives 
#150 
#24D #31 
#52D 2 
BOTTOM OF FILE REACHED 
# 


we now have a file with lines | through 14, 16 through 23, and 32 through 
51. The first directive deleted line 15. The second directive deleted 
lines 24 through 31. The third directive deleted two lines starting with 
line 52. Since itt deleted the last line of the file, the editor dis- 
played the message ''BOTTOM OF FILE REACHED." 

Before we discuss any more directives, we need to expand the definitions 
of <line> and <target>. 

As editing operations are performed, the editor keeps track of the 
‘current line!’ which usually is the line most recently affected by a 
successful edit directive. Upon entering the editor, the “current line!’ 
is the first line of the file. If, for example, we have just inserted 
three lines between lines 12.00 and 13.00, the current line will be 12.30. 
One should note that after a line or a block of lines have been Deleted, 
the line immediately following the last one deleted is made the current 
line (if the last line of the file was deleted, the new last line of the 
file will be the current line). 

In our discussions above, we have implied that one has to explicitly 
indicate a <line> for each directive by specifying the line number of the 
line of Interest. However, if <line> is not specified in a directive, the 


“current line'' is used. For example, if one enters the directive 


* 
S 
nS 


the editor will delete two lines starting with the current line. In our 
example, since we were at line 6.00, the ''D2'' operation deleted lines 6.00 
and 7.00. As you will learn to appreciate, the "current lIne'' default for 


line {fs extremely handy. 


After performing all of the above operations, our file now looks IIke 


this: 


1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
2.00 =TSC TEXT ENITING SYSTEM. A NUMBER OF ' 
3.00 =EXAMFPLES WILL BE SHOWN TO ALLOW EASY AND 
4,00 =QUICK LEARNING OF ITS FEATURES. 

5,00 =FOLLOWING ARE SOME NONSENSE LINES? 

8.00 =TESTING 1234 

9.10 =THIS IS AN INSERTED LINE. 

8.20 =SO IS THIS, 

9,00 =THIS ELITOR IS FUN TO USE! 

10.00 =RERRRERER 

11.00 = 

11.10 =ANOTHER INSERTED LINE. 

12,00 =THIS IS THE END OF THIS FILE» 

13.00 =AT LEAST FOR NOW, 


We have seen that <line> may be specified by a 1Ine number or by 
default to the current line. There are also several other ways to specify 
<line>, or in other words, to move the pointer to a desired line prior 
to the execution of an edit directive. One may also specify <line> with a 
'4n!' or "=n! (where n is an integer) meaning the next nth line In the file 
or the nth previous line in the file, respectively. Two other useful 
<line> designators are ''t'' (''*"' on some terminals) and ''+"' (1 on some 
terminals). The up arrow ''t"' is used to designate the top or first line 
in the file. The down arrow ''+'' fs used to move to the last line or bottom 
of file. These various <line> specifiers are shown in the example below 


with the PRINT directive. 


#28 
1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
#43 F 
4.00 =QUICK LEARNING OF ITS FEATURES. 
#! FP 
13.00 =AT LEAST FOR NOW. 
$-2F 


11.10 =ANOTHER INSERTED LINE. 
+ 
There may be times while editing a file when we know part of the con- 


tents of a line of interest but don't know its line number nor Its dis- 
placement from the current line. In such a case we can use the "'content- 


oriented" feature of the editor to find it. The syntax to specify <line> 


in this way is 
/<string>/ 


where ''/'' is a character to delimit (enclose) the <string> which Is a 
sequence of characters known to be in the line. When <line> is specified 
as '"'/<string>/"', the editor will search for the current line through the 
file to find the next line containing the specified <string>. Some examples 
will help to clarify this: (1) /PRINT/ denotes the next IIne containing 
the character string ''PRINT'', and (2) /GO TO 35/ refers to the next Ifne 
containing "GO TO 35". If the <string> is found tn any subsequent IIne of 
the file, that line will be made the current line and the requested edit 
operation will be performed on it. If the <string> does not occur anywhere 
subsequent in the file, the editor will issue the message ''NO SUCH LINE"! 
and will not change the current line pointer. Note that the delimiter does 
not need to be a slash; it may be some other character such as a quote (') 
or a comma. For example, 'A/B' refers to the next line contafning ''A/B". 

It is also possible to prefix the string designator with ''-"' (minus 
sign) to indicate a previous line containing that string. A few examples 
with our TEST FILE will show the use of ''/<string>/'' as a <line> designator. 


#-/QUICK/F 
4.00 =QUICK LEARNING OF ITS FEATURES, 
#51233 F 
8.00 =TESTING 1234 
#4 END F 
12.00 =THIS IS THE ENT OF THIS FILE,» 
+ 
To summarize, we have seen that <line> may be specified a number of 
ways, namely: (1) by default to the current line, (2) by typing a line 
number, (3) by '4n'! denoting the nth subsequent line, (4) by ''-n"' referring 
to the nth previous line, (5) by /<string>/ denoting the next line In the 
file containing the indicated string of characters, (6) ''-/<string>/'' 
to denote the nearest previous line containing the specified character 
string, (7) ''t'' (''*" on some terminals) to denote the first line of the 
file, and (8) '"'¥" ('!"' on some terminals) to denote the last line of the 
file. 
Now lets turn our attention to expanding the definition of <target>. 


As you may recall, a <target> is used in some directives to Indicate the 


number of lines to be affected by the edit operation. We have already seen 
that a <target> may be specified by (1) an integer "n'' indicating the 
number of lines to be affected, as P3, meaning print 3 lines, and (2) a 
line number preceded by a pound sign (#) Indicating the line number of the 
last I!me to be affected, as P #6, meaning print all lines to and Includ- 
Ing I!ne #6. The <target> is simply a designator telling how many 1 Ines 
the edit directive should operate on. Ih addition to the two mentioned 
forms of <target>, we also have, (3) if no <target> Is specified in a command 
whose syntax Includes one, a <target> of | is assumed, thereby affecting 
only one line. As with <line>, one may specify <target> by (4) '/<string>/" 
which Indicates the next line In the file containing the specified character 
string, (5) '"t!' to denote the top line In the file, and (6) "+" to denote 
the bottom line in the file. A minus sign may be used to indicate that 
processing Is to proceed backward through the file in the following two 
cases: (7) ''=n''! and (8) ''-/<string>/"'. 

With an understanding of <line> and <target> we can now discuss some 
more directives. The Print directive Is used to display a line or a 


group of lines. Its syntax is 


<line>P <target> 
where "<line>!' and ''<target>'! may be specified in any of the ways discussed 
above. To print just one IIne one needs to specify only <lIine> fol lowed 
by a carriage return; therefore, the following two directives perform 
the same thing: 
<line>P 


and 


<line> 


Going back to our test file, we can Illustrate the various forms of 


<target> as used with the Print directive. 


2.00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 
#-1 
1,00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 


$F /EASY/ 


1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 

2,00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 

3.00 =EXAMFPLES WILL BE SHOWN TO ALLOW EASY ANI! 
#! F ~-3 

13.00 =AT LEAST FOR NOW, 

12,00 =THIS IS THE ENT OF THIS FILE» 

11,10 =ANOTHER INSERTED LINE. 
#-/BBR/ Fo -/123/ 

10.00 =RKRRREEBRR 

9.00 =THIS ENITOR IS FUN TO USE! 

8.20 =S0O IS THIS, 

8.10 =THIS JIS AN INSERTED LINE. 

8.00 =TESTING 1234 
#12F! 

12.06 =THIS IS THE END OF THIS FILE,» 

13,00 =AT LEAST FOR NOW. 


The first directive displayed line 2.00 and made that line the 
The second directive requested that the line immediately 
The third directive displayed 


current line. 
preceding the current line be displayed. 
the block of lines from the current line down through the line containing 
the character string "'EASY''. The fourth directive printed 3 lines start- 
ing at the bottom of the file and ending at line 11.10, which became the 
current line. The fifth directive requested the previous line containing 
the character string '"'BBB'' be found, and then starting with that tine, 

display all lines going backwards through the file until a line containing 


the character string '123'' has been displayed. This shows the extreme 


usefulness and power of the content-oriented characteristic of the editor. 
The last directive requested that all lines from line 12.00 to the end or 
bottom of file be displayed. 

The next directive to discuss is Next which is used primarily to move 


the current line pointer. Although it may be used otherwise, usually it Is 


used only with the default <line>. Its syntax is 


N <target> 


This directive finds the line indicated by target , displays it, and makes 


it the current line. A few examples will Illustrate its use. 


E a 
— 1.00 =THIS TS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
#N 
2.00 =TSC TEXT ENITING SYSTEM. A NUMBER OF 
#N 4 
8.20 =SO IS THIS. 
#N -2 
8.00 =TESTING 1234 
+ 


The following directive performs single-line replacements or Inserts. 
{ts syntax Is 
<1 ine>=<text> 
where ''<]ine>'' specifies the number of the line to be replaced or Inserted 
and may, of course, default to the current line. ''<text>'' Is the text to 
comprise the line. To illustrate this directive, let's continue our 


example series. 


#=REPLACE CURRENT LINE HERE 
#5.259=THIS LINE CREATED WITH 
+ 





"EQUALS". 





The first directive changed the contents of line 8.00, the current line. 
The second example [Inserted a tine with the line number 5.25. . 

The next directive to be discussed is the Change directive. it Is 
used to change occurrences of one character string into another. Its 
syntax Is 


<line>C /<string>)/<string>:/ <target> <occurrence> 


where ''/'' is a delimiter character to separate the two character strings; 
‘<string>,'' is the character string to be replaced; ''<string>g'"' Is the 

string of characters to replace them; ''<target>'' specifies the range of the 
changes; and ''<occurrence>'' specifies which occurrence(s) of <string>, 

should be replaced In the line(s). If <occurrence> is 1 or is not specified, 
then only the first occurrence of <string>; in any line of the block will 

be changed--the second or subsequent occurrence of the string In such a 

line will not be affected. {tf 2 is specified for <occurrence>, then only 
the second occurrence of <string>; In any line of the block will be changed. 


To change all occurrences of the indicated string in the block, use an 


VW 


asterisk (*) for <occurrence>. Let.'s illustrate the Change directive by 


continuing our example. 


#4C /QUICK/FAST/ 
4.00 =FAST LEARNING OF ITS FEATURES. 
#8.1i0 °C /THIS IS // 
6, 1LO=AN INSERTED LINE, 
#-5C FAb$s SSOMES X 
3.00 =EX$MPLES WILL BE SHOWN TO $LLOW ESSY $N>Ir 
4.00 =FSST LESRNING OF ITS FESTURES,. 
3600 =FOLLOWING $RE SOME NONSENSE LINES? 
#12 C /E/?/ -2 3 
12,00 =THIS IS THE EN OF THIS FIL?» 
11.10 =ANOTHER INSERT?I LINE, 


The first example replaced the string ''QUICK'' with the string ''FAST' 
in line 4.00. The second example deleted the string "THIS IS"! and a 
blank from line 8.10. The third example starts at the fifth previous 
line (line 3.00) and changes every occurrence of "A" to ''$'' down through 
all lines until the line containing the character string "SOME" (line 5.00) 
is reached. The last example changes the third occurrence of "'E" to !'2!! 
in Tine 12.00 and then in line 11.10. 

The last directive to be discussed is used to exit from the editor. 
This can be done several different ways: STOP, S, or LOG. This will return 
you to your system monitor. 

Now lets go back to our test file and illustrate some of the features 


and directives we have discussed. 


1.00 =THIS IS AN EXAMPLE OF THE FANTASTICALLY USEFUL 
2,00 =TSC TEXT EDITING SYSTEM. A NUMBER OF 

3,00 =EX$MFLES WILL BE SHOWN TO $LLOW ESSY $NI 

4.00 =F¢ST LESKNING OF ITS FESTURES. 

5.00 =FOLLOWING $RE SOME NONSENSE LINES: 

5.25 =THIS LINE CREATED WITH "EQUALS". 

8.00 =REPLACE CURRENT LINE HERE 

8.10 =AN INSERTED LINE. 

8.20 =S0 IS THIS. 


9.00 
10.00 
11.00 
$1.10 
12.00 
13.00 

#20/C /C 

2690 

#/HEEB/ 
10.00 


12 


=THIS EDITOR IS FUN TO USE! 
=KERRRRBRR 


=ANOTHER INSERT?E LINE. 

=THIS IS THE END OF THIS FIL?ys 

=AT LEAST FOR NOW, 

6800 / 

=T§C 6800 TEXT EDITING SYSTEM. A NUMBER OF 


=BRRBBRBBR 


#-s THIS 195 € “E’XXxX’ ! 


1.00 
2.00 
3.00 
4.00 
§ 600 
5.25 
8.00 
8.10 
9.00 
11.10 
12.00 
13.00 
#N_-4 
10.00 
#-1 I 
9.10 
9.20 
9.30 


=THIS IS AN XXXAMFLE OF THE FANTASTICALLY USEFUL 
=TSC 6800 TXXXT ENITING SYSTEM. A NUMBER OF 
=XXX$MPLES WILL BE SHOWN TO $LLOW ESSY $ND 
=F$ST LXX$RNING OF ITS FESTURES. 

=FOLLOWING #RXX SOME NONSENSE LINES? 

=THIS LINXX CREATED WITH "EQUALS", 
=RXXFLACE CURRENT LINE HERE 

=AN INSXXRTED LINE. 

=THIS XXDITOR IS FUN TO USE! 

sANOTHXXR INSERT?PE LINE. 

=THIS IS THXX END OF THIS FIL?ys 

=AT LXXAST FOR NOW. 


=BHRRRBEBR 
“=TEST-TEST-FEST 


=1234567890 
=H! 


BOTTOM OF FILE REACHED 


#7! 


BOTTOM OF FILE REACHED 


#7 
+5 


The previous tutorial has been only a brief introduction to the TSC 


Text Editing System. The remainder of this manual contains a detailed 


description of each directive with examples, in the next section, followed 
by ''How to Use Tape'' and ''Adapting to Your System''. It fs important to 


read and study the entire manual in order to fully understand and 


utilize all of the power and features of this editor. The source listing 


fs the last section. 


EDITOR DIRECTIVES 


There are five groups of editor directives: environment directives, 
system directives, ''current line'' movers, edit directives, and tape 
directives. A complete description of all directives in each group Is 
given below. In the following descriptions, quantities enclosed In square 
brackets ([...]) are optional, and may be omitted. Verticle lines (|) 
separate options. 

Several of the editor directives use character strings as arguments. 
These arguments are elther matched against strings In the text, or replace 
a string In the text. A string argument begins after a delimiter character 
and continues as a sequence of any legal characters unt!ll the delimiter Is 
again encountered. The delimiters are not considered part of the string 
to be used in the matching or replacement operations. Although the delimiters 
In the following descriptions are frequently represented as slashes, ''/", 
any legal non-blank, non-alphanumeric character may be used as the delimiter 
such as: */()$=2#,.2{[]: ' etc. Note that the following characters 
may not be used to enclose strings unless they are preceded by either a 
plus (+) or minus (-) sign: ''t'' (denotes first line of file), ''t'' (denotes 
last line of file), ''-'' (denotes target Is above current !Ine), and the 
character denoted by LINO (normally a pound sign) which Is used to flag 
line numbers. The del!miter character is redefined In each new request by 
its appearance before a string. If two strings exist in one directive (as 
In the Change directive), the same delimiter character must be used for each 
string. 

All of the editor directives use the <lIine> information preceeding the 
directive to position the pointer prior to any directive action. The <line> 
parameter may of course be null, meaning leave the pointer at tts current 


position. All of the following are valid <IIne> designators: 


1. Any number references a specific line number 
2. +m denoting the nth subsequent I Ine 
3. =n denoting the nth previous line 
kh, /<string>/ referring to the next lfne In 


the file containing the Indicated 
string of characters 


5. 


8. 


Many of 
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-/<string>/ 


+ (* on some terminals) 
+ (1 on some terminals) 


null 


the editor directives require <target> information. 


references a previous IIne contalning 


the indicated string 
denotes the first line of the file 
denotes the last ltne of the fille 


Stay at current line 


This tells 


the editor to operate on the "current'' line and all other I!nes in the file 
up to the line referenced by the <target>. In cases where a <target> Is 
required, leaving it null will make the <target> default to 1, meaning only 
the current line will be affected by the directive. All of the followIng 


are valid <target> designators: 


ae 


8. 


an Integer n 
#n 


/<string>/ 


-/<string>/ 


+ 


I+ 


(nul1) 


indicates that n lines should be 
affected by the edit operation 


denotes the ]ine number of the 
last Itne to be affected 


denotes the next line In the file 
containing the specified character 


string 


references a previous line con- 
taining the Indicated string 


denotes al! lines up to the top of 
the file 


references al] lines down to the 
bottom or last lfne of the file 


Indicates that n !Ines should be 
affected and in which direction 
from the current lfne 


defaults to ] and only the current 
line is affected 


As we have seen, the form <target> ts used to specify a range of lines 


to which the directive will apply. 


The directive will be applied to each 


lIne, starting with the line specified by <line> and contInulng until the 


target Is reached. 
if a string <target> Is specified, the directive wil! apply to 


successive lines of text unt!] a line containing the string Is reached. 


Processing proceeds downward In the file unless the target Is preceded by 
a '+"' (minus sign), Indicating that processing Is to occur upward (toward 
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the first line) in the file. Targets may also be preceded by a plus sfgn 
(indicating downward movement). If a line number target Is specified, 
processing begins at <line> and proceeds toward the target I ne number. 


Some examples of <target>s are 


2 

+10 

=3 

/STRING/ 

+/STRING TARGET/ 

-/BACKWARD DISPLACEMENT TO A STRING/ 
+*ANY DELIMITER WILL WORK FOR STRING* 
++EVEN PLUS SIGNS WILL WORK+ 

#23 .000 


Any ''/<string>/'' descriptor may be postfixed with a column number 
Immediately after the delimiter which indicates that the preceding string 
must begin In the column specified to be found. If the column specified is 
not In the range of the ZONE in effect, the request will be ignored. Some 


examples are 


/\DENT/11 
/PROGRAM/77 
*LABEL*2 
- COMMENT. 30 


Environment Directives 


H[EADER] <columns> 


MEANING: 
A lIne of <columns> headings will be displayed. The heading Is 


of the form ''123456789012...'' to indicate the column number. 
Columns for which tab stops are set will contaln a minus character 
Instead of the normal digit. If a column count Is given, [t 
becomes the default count such that if just ''H'"' is typed after- 


wards, that number of columns will be printed. 
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EXAMPLES: 
HEADER 72 Display column number headings for 
72 columns. 
H 30 Display column numbers for 30 
columns. 
NU[MBERS] [OFF|ON] 
MEANING: 
The line number flag Is turned off or on. If the flag Is off, 
then Iine numbers will never be printed. If nefther "OFF" nor 


"ON'' Ts specIfled, then the flag will be toggled from Its current 


state. 
EXAMPLES: 
NUMBERS OFF Turn line number printing off. 
NU ON Turn it back on. 
NU Toggle from "'on" to "off"! or from 
"off" to "on'', 
REN[UMBER] 
MEANING: 


The "renumber" directive will renumber all of the lines [n the 
current edit file. Lines In the renumbered file will start with 
line number ''1.00'' and will have an tncrement of ''1.00"'", The 
Tine which was "current" before the command will stlil be the 
current line after the command (although Its number wil] probably 


have been changed). 


EXAMPLES: 
RENUMBER Renumber the lines In the current 
working file. 
REN 


SET <name> = '<char>' 
MEANING: 
SET is used to define certain special characters or symbols. The 
<name>s which may be set are: 
TAB - the tab character, 
FILL - the tab fill character, 


ae 


EOL - the end of line character which may be used to separate 
several commands on a single Jine. 


LINO - the line number flag character which Is used to indicate 
that a target Is a specific IIne number. 


The default values are: TAB and EOL are "'null''. 
FILL ts "space" 


LINO ts '#!! 
EXAMPLES: 

SET TAB = ':! Set the tab character to semicolon. 

SET TAB = '! Disable tabbing by setting the tab 
character to null. 

SET FILL = ' ! Set the tab fill character to a 
blank. 

SET EOL = '$! Set the EOL character to $. 

SET LINO = '@! Set the line number target escape 


TAB [<columns>] 
MEANING: 
Used to set the tab stops. All previous tab stops are cleared. 
If no columns are specified then the only action [fs to clear all 
tab settings. Any TAB characters occurring beyond the last tab 
stop are left in the text. The maximum number of TAB stops 


allowed [ts 20. 


EXAMPLES: 
TAB 11, 18, 30 Set tab stops at columns 11, 18, 
and 30. 
TAB 7 72 Set tab stops for a FORTRAN program. 
TAB Clear all tab stops. 


V[ERIFY] [OFF] ON] 
MEANING: 
The verify flag is turned ''on" or ''off''. The verify flag Is 
used by the directives "'CHANGE'', and ''NEXT'' (and several others) 
to display their results. If neither "ON'' nor "OFF" Is specified, 
then the flag will be toggled from its current state. 
EXAMPLES: 
VERIFY OFF Turn verification off. 
V ON Turn it back on. 
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MEANING: 
"NX" Ts the cursor control command. Any time this command Is 
entered, the editor will Issue the 6 special character string 
previously set up. See "'Adapting to your System'' for details. 
EXAMPLES: 
x Output cursor control string. 


Z[ONE] [Cl, C2] 
MEANING: 
ZONE Is used to restrict all sub-string searches (FIND, CHANGE, 
<target>s, etc.) to columns ''Cl'' to ''C2"' Inclusive. Any substrings 
beginning outside those columns will not be detected. if Cl and 
C2 are not specified, then the zones will be reset to thelr 


defaults (columns 1} and 136). 


EXAMPLES: 
ZONE 11, 29 Restrict searches to columns 11 
through 29. 
ZONE Search columns |! through 136. 


System Directives 
LOG 
MEANING: 
Exit the editor. 
EXAMPLES: 
LOG 


S(TOP] 
MEANING: 
Same as "'LOG''. 
EXAMPLES: 
STOP 
z 


"Current Line'' Movers 


B[OTTOM] 
MEANING: 
Move to the last line In the file and make It the current IIne. 
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EXAMPLES: 
BOTTOM Make the last line of the file the 
current line. 
B 


F[IND] <target> [<occurrence>] 
MEANING: 

Move the current line polnter to the line specified by <target> 
and make it the current line. If the VERIFY flag (see VERIFY) Is 
on, the line will be printed. If <occurrence> Is specified (an 
unsigned integer or an asterisk), the directive will be repeated 
<occurrence> times. An asterisk means al) occurrences of the 
<target> will be found until the bottom or the top of the file 
ts reached. If the target [s not reached, the current line 


potnter will not be moved. 


EXAMPLES; 
FIND /STRING/ Find the next line containing the 
string "'STRING!''. 
F /A VERY LONG STRING/ Find the next three lines contaln- 
F/THREE LINES/ 3 Ing the string ''THREE LINES". 


F/ALL TILL BOTTOM OF FILE/ * Find all following occurrences of 
the indicated string. 


F-/PROGRAM/7 * Find all previous lines which 
contain the characters ''PROGRAM'' 
beginning in column seven. 


N(EXT] [<target> [<occurrence>]] 


MEANING: 
The Ifne specified by the target Is made the current IIne. If the 
VERIFY flag is on, the line will be printed. If <occurrence> Is 
specified, it must be an unsigned integer. It Indicates which 


next occurrence of a line contalning the target [Is to be made 
the current line. If the target is not reached, the current line 
pointer will be posItioned at the bottom of the file (top of 
the file for a negative <target>). If no target Is specified, the 


next line wlll be made the current line. 


EXAMPLES: 
NEXT 5 


N 
N-10 
N/STRING TARGET/ 


N/THIRD OCCURRENCE/ 3 


T[OP] 
MEANING: 
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Make the fifth following Tine the 
current lIne. 


Make the next Ifne the current line. 
Make the tenth previous line current. 


Make the next Ifne contalning 
"STRING TARGET'' to be the current 
TIne. 


Make the third IlIne containing the 
indicated string the current line. 


The first line of the file becomes the current IIne 


Edit Directives 


A[PPEND] /<string>/ [<target>] 
MEANING: 


Append the specified <strings> just beyond the last character of 
the current line (and to successive unt!] the target Is reached). 
1f the string Is postfixed with a column number, then append the 


string beginning at the specified column (rather than at the end 
of the line). Any characters previously in the line following 


the specified column will be lost. 


EXAMPLES: 
APPEND /./ 


A *HELLO* 2 


A/SEQUENCE/73 *END*7 


Append a perlfod to the end of the 
current line. 


Append the word ''HELLO" to the end 
of the current ]!ne and to the end 
of the next ltne. 


Append the word ''SEQUENCE' starting 
in column 73 of the current line and 
successive I}nes unt!I] a Ifne con- 
taining the characters "'END'' begin- 
ning tn column seven Is found. 


C[HANGE] /<string>,/<string>2/ [<target> [<occurrence>]] 


MEANING: 


Replace the string specified by <string>, with the string speci fled 
by <string>g. If no <target> is specified, only the current line 
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is affected. The slashes represent any nonblank delimiter 
character. <occurrence> is used to specify which occurrence cf 
<string>; is to be replaced in each line. It ts either an un- 
stgned integer or an asterisk, ''*'' signifytng that al! occur- 
rences of the substring <string>, are to be replaced with <string>. 
By default, only the first occurrence wil! be changed. Note that 
if <occurrence> is specified, and if changes are to occur to the 
current lIne only, then the target should be a 1 (one). 


EXAMPLES: 


CHANGE /THIS/THAT/ Replace the first occurrence of 
"THIS' in the current line with 


THAT! 


C/A/B/ 1* Change all occurrences of '"'A"' in 
the current line to ''B''. 


C /FIRST/LAST/10 Change the first occurrence of 
"FIRST to 'LAST' in the current 
line and also in the nine follow- 
Ing lines. 


C /NEW/OLD/ /A TARGET/ Change the first occurrence of 
"NEW" to "OLD'' In each lfne down 


through the line contalning the 
string ''A TARGET". 


C ,A,, “10 * Remove all "'A''s in the current 
line and in the nine preceding 
lines. 


C*HELLO* Delete the character string 
“HELLO! from the current lJ Ine. 


co[PY] [<destinatlon-target> [<range-target>]] 
MEANING: 

The current line and successive IInes until the <range-target> 
Is reached are copied so that they follow the line specified 
by destination-target . The default destination-target Is 1, 
thereby causing a copy of the current line to be placed after 
the next line. The default <range-target> Is 1, thereby copying 
only one line. After the directive is executed, the current 
line polnter will be positioned at the new position of the last 


line copled. Some lines may be renumbered after a copy. 
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EXAMPLES: 
co #18 Put a copy of the current line 
after ltne 18. 
Copy #3 4 Copy four lines beginning with the 
current line and place them after 
Tine 3. 


CO /HELLO DOLLY/ +/END OF RANGE/ After the next Tine which 
contains the string ''HELLO DOLLY" 
place a copy of each line start~ 
ing with the current line through 
the line containing "END OF RANGE''. 


D[ELETE] [<target>] 
MEANING: 
The current line (and successive ]!nes until the target Is reached) 


Is deleted. After the directive is executed, the current line will 


be the line following the last line deleted. 


EXAMPLES: 
DELETE 5 Delete five lines (the current 
line and the next four lines). 
D Delete the current line. 
D /STRING/ Delete lines from the current 


line through the next line that 
contains the string ‘STRING. 


EXP[AND] [<target>] 
MEANING: 
The current tab character is expanded within all lines, beginning 


with the current line (and down to and Including the line specified 
by target). Since tabs are normally expanded as lines are inserted 
into the file, this directive Is primarily of use when one has 


forgotten to define a tab character. 


EXAMPLES: 
EXPAND 100 Expand 100 lines starting with 
the current line. 
EXP Expand the current line. 
1 ([NSERT] 
MEANING: 


The editor will enter the buffered input mode, prompting with line 


numbers (unless line numbers have been disabled, see the ''NUMBERS'' 
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directive) and insert the ]ines below the current line. Buffered 
input continues until a line beginning with the breakpoint 
character (pound sign) in column one is recelved. The characters 
following the breakpoint character are treated as an editor 
directive. The editor will try to choose an insertion Increment 
sufficient to insert at least 10 lines, or, if that is not 
possible, the smallest increment possible. The current line 
pointer is positioned at the last line inserted. {It should be 
noted that the editor may renumber text lines following the 
inserted text if the inserted line numbers overlap line numbers 


previously in the file. 


EXAMPLES: 
INSERT Accept line input after the current 
line. 


i[NSERT] <text> 
MEANING: 
The text (sequence of characters) which immediately follows the 
separator (or blank) after the directive name will be inserted 
as a separate line below the current line of the file. The line 
inserted becomes the current line. It should be noted that the 
editor may renumber text lines following the inserted text If 
the inserted line numbers overlap line numbers previously in the 
file. 
EXAMPLES: 
| THIS BELOW THE CURRENT LINE OF THE FILE 
INSERT EVERYTHING AFTER THE FIRST BLANK 


MO[VE] [<destination-target> [<range-target>]] 
MEANING: 
The current line (and successive lines until the <range-target> 
is reached) is moved so that it follows the line specified by 
<destination-target>. The default <destInation-target> is 1, 


thereby moving the current line after the next line In the file, 
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The default <range-target> is 1, thereby moving only one line. 
After the directive fs executed the current line pointer will 
be positioned at the new position of the last line moved. Some 
lines may be renumbered after a move. 


EXAMPLES: 
MOVE 3 Move the current ITne down three 
lines. 


MO #1 /TARGET STRING/ Insert the current line and all 
lines down through the line con- 
taining ''TARGET STRING" after 
line I. 


MO ~/PROGRAM/ 5 Move five lines (Including the 
current line) up within the 
file so that they follow a 
line containing the character 
"'PROGRAM'', 


MO #10 -5 Move the current line and the 
four previous I Ines below line 
10. 


O[VERLAY] [<del ftmiter>] 


MEANING: 
The current line is printed, then a line of input Is accepted from 


the terminal (the overlay line). The overlay Ine will be posi- 
tloned directly beneath the line printed out. Each character of 
the overlay that Is different from the <delimiter> character 

(default is a blank) will replace the corresponding character in 


the current line. The overlaid line will be printed if verify 


is "ON". 
EXAMPLES: 
OVERLAY 
25.00 = THIP 1S THE CORRENT LUNE. 
OVERLAY S U I 


25.00 = THIS IS THE CURRENT LINE. 


O[VERLAY] <d><text> 


MEAN ING: 
This directive Is similar to the previous form of the OVERLAY 


directive with these differences: (1) The current line fs not 


printed. (2) The remainder of the directive line Is taken as the 


overlay text. 
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EXAMPLES: 
OVERLAY---AT-------- (------- )----- 
25.00= THAT 1S THE (CURRENT) LINE 


P[RINT] [<target>] 
MEANING: 
Beginning with the current line, lines are printed until the line 
specified by target Is reached. By default, only the current lIne 


will be printed. 


EXAMPLES: 

P Print the current line. 

PRINT 5 Print five lines starting with the 
current line. 

P -10 Print the current line and the 
nine previous lines. 

PRINT *STRING* Print all ines down through the 
next Tine containing "STRING". 

P -/STRING/ Print all lines up through the 
next previous line contalning 
"STRING! 


R[EPLACE] [<target>] 
MEANING: 

A "DELETE" from the current line through the <target> |JIne Is 
performed. The editor then enters the buffered input mode, 
putting the new lines into the area vacated. It Is not 
necessary to enter the same number of IInes as were deleted. The 
line numbers of the lines Inserted will probably not be the same 
as those deleted. The current line pointer will be positioned 
at the last line inserted. Be default, only the current line will 


be deleted. 


EXAMPLES: 
R Replace the current line. 
REPLACE 10 Replace ten lines starting with 
the current line. 
R /TARGET STRING/ Replace all lines from the current 


line through the line containing 
"TARGET STRING''. 
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=<text> 


MEANING: 
The '='' directive replaces the current line with the text suppl led. 


The replacement text begins with the first character following the 
equals sign. The current IlIne pointer is not moved. 


EXAMPLES: 
= THIS IS THE REPLACEMENT TEXT. 


(null) 
MEANING: 
The null directive (i.e., just a carrftage return) prints the 


current line. 


Tape Directives 


GAP 
MEANING: 
Issue a string of 40 null characters to the tape unit. 
EXAMPLES: 
GAP Puts leader or gap on tape. 
READ 
MEANING: 
This directive will read the next file present on the loaded tape. 
All lines read will be appended to the end of the current work 
file and the last line read will become the "current" line. 
EXAMPLE: 
READ Get the next file from the tape. 
SAVE 
MEANING: 


Write the entire current file out to the tape unit. The fille is 
written with no line numbers and is terminated with an ASCII 
“control Z'' character. 


EXAMPLE: 
SAVE Puts the current file on tape. 


27 


W[RITE] [<target>] 
MEANING: 
All lines from the current line through the target line are 


written out to tape. The same format as SAVE is used. 


EXAMPLES: 
WRITE Write the current line to tape. 
W #20 Write all lines from the current 
line through line #20 out to the 
tape unit. 
USING TAPE 


The TSC Text Editing System contains four tape directives. These 
can be used with most types of tape devices including paper tape and 
Kansas City Standard cassette systems such as the SWTPC AC-30 tape 
system. When using SAVE or WRITE the text is sent out to the tape in 


the following form: 
TEXT... (carriage return)...TEXT...(C.R.)"control Z", 


The ''control Z'' is the end of file marker. Note that there are no 
line numbers put on the tape, and also no line feeds or null characters, 
so the file is not suitable for displaying on a terminal tn this form. 

When a tape is read back into the editor using the READ command, line 
numbers are automatically put back in. The tape will be read until a 
"control Z'' is found. 

THe TSC Text Editing System provides delay after tape turn on for 
cassettes and also issues a control character for each ''tape on" "'tape 
off", "record on'', and "record off''. To set these characters to those 
needed by the tape system, see ''Adapting to Your System''. 

The fourth tape directive is the GAP command. This is used to 
output 40 nulls to the tape. This can be used to put leader or trailer 


on the tape, or a gap between files. 
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ADAPTING TO YOUR SYSTEM 


The TSC Text Editing System is assembled to run directly on a 
Motorola MIKBUG based 6800 system, such as the SWTPC 6800. [It can, however, 
be converted with great ease to run on most other 6800 systems. The 
following information should be all that is necessary in most cases. Read 
through everything carefully before doing any conversion to be sure every- 
thing Its understood. This section also contains information for MIKBUG 
machines to allow setting up the TAPE control characters and the cursor 
control characters for the X command. There fs also information for setting 


memory end. 


1. MEMORY END - The editor is assembled with memory end set at the end 
of an 8K system (S$IFFF). To change this for your system put the end 
of memory address in locations $0212 and $0213. The memory end 
should not be set below address $I7FF, the end of the first 6K block 


of memory. 


2. INPUT CHARACTER ROUTINE - This routine Is called by the editor and 
requires the following: The character input should be returned in 
the A accumulator, the B accumulator should remain unchanged, as well 
as the index (X) register. The editor is assembled referencing 
MIKBUG's Input routine. To substitute the address of your Input 
routine, enter It at location $0207 and $0208. 


3. OUTPUT CHARACTER ROUTINE - This routine is called by the edlitor and 
performs the following: The character in the A accumulator Is output 
to the terminal. The B accumulator and X registers remain unchanged. 
The editor is assembled referencing MIKBUG's output routine. To substItute 
the address of your output routine, enter it at location $020A and 
$020B. Both the input and output routines should be written as sub- 


routines, meaning the last instruction should be RTS. 

4h, FULL DUPLEX ~ If your terminal requires software echo of typed characters 
and your Input routine does not provide this, change the JMP (7E) at 
location $0206 to a JSR (BD). 


5. 


ll. 
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INPUT CHARACTER FROM TAPE - If you use a tape system connected to a 
differnet !/0 port than the terminals or use a different routine 

to handle tape operations, you can set the address of this routine 

at locations $020D and $020E. The character should be In A, while B 
and X should remain unchanged. The editor is assembled with MIKBUG's 


regular input routine. 


OUTPUT CHARACTER TO TAPE - As explained above, if necessary to use a 
separate output routine for tape operations, set the address at 
locations $0210 and $0211. Character should be in A keeping B and X 
unchanged. The editor is assembled with the address of MIKBUG's 


regular output routine. 


BACKSPACE CHARACTER - The backspace character ("control'' H) is stored 
at location $049D. It is presently a 08. Change as desired. 


DELETE CHARACTER - The delete character is stored in location $O4AC. 
It is currently a $18 ("'control'' X). This may be changed as destred. 


BELL CHARACTER - When the input buffer is overflowed (more than 136 
characters typed) the editor outputs a ''bell'' character (07). This 


is stored at location $04C2 and may be changed as desired. 


TAPE TURN ON DELAY - The editor is assembled to delay approximately 
2 seconds after tape turn on before outputting data. This may be set 
as needed at location $00B6. it is currently 06. Setting It to 00 Its 


zero delay, with larger values being longer delays. 


TAPE CONTROL CHARACTERS - The editor outputs four special characters to 
control tape operations. These characters are presently set to nulls 


(00). To set these to your systems requirements, change the following 


locations. 
TAPE ON (PLAY) - $00B7 
TAPE OFF (PLAY) - $0088 
TAPE ON (RECORD) - $0089 
TAPE OFF (RECORD) - S$OOBA 


CURSOR CONTROL CHARACTERS - The editor outputs a string of six characters 
upon execution of the ''X'' command. These can be set to special cursor 
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or other contro] characters. They are presently nulls (00). Set 


desired characters at location $0982 through $0987. 


RETURN TO MONITOR ADDRESS - Upon execution of STOP, S, or LOG, the 
editor returns to the system monitor. The editor Is assembled with 


‘the address of MIKBUG. Enter the address of your monitor at location 


—$098C and $098D. 


SYSTEM CHARACTERISTICS 


The maximum line number is 9999.99. If more than 9,999 lines are 
entered, the line number counter will turn over (go back to 0), 
therefore, the editor should not be used with files of 10,000 lines 
or longer. (This is not really a limitation since 10,000 null IInes 
(line number followed by a carriage return) uses up 40K of memory!) 


The Input buffer will hold 136 characters. If more than 136 characters 
are typed, they will be ignored and a ''bel!'' character output to the 
terminal. To terminate the line it is necessary to type the backspace 
character and then a carriage return. 
Setting the ''tab'' character and the "fill" character the same will 
defeat the TAB feature. There fs no logical reason to do thls. 
Setting the "EOL" character will allow using multiple commands at a 
time. Insert and overlay cannot be followed by other commands. An 
example of EOL use (with EOL set to ''$') is: 

+D2SPIOST 
This sequence will delete the first 2 lines of the file, then print 
the next 10 lines, and finally, return the pointer to the top of the 
file. 


31 


MORE EXAMPLES 


NEW FILES 
1.00 =kxk THIS ITS A TEST FROGRAM xx 
2600 = 
3.00 =70RGFH$O0100 
4.00 =START¢LOX+#SF FF SSET COUN 
3600 =#3 
3.00 =sORGEHOLOO 

#SET TAR=* 5’ 

#TAB 9 16 264 

SET FOL=% $ / 


#EXP | 
#7 $ POS 

1.00 =kxk THIS IS A TEST FROGRAM Xx 

2.00 = 

3400 = ORG $0100 

4.00 =START L. Tix SF FF SET COUNT 
#1 

9000 =3lL0A Ax#S$4053SET SECOND COUNT 


6.00 =LOOFSDEC AssTEC THE COUNT 
7.00 =SHNE SLOOP FLOOFTILL TONE 
8.00 =sTEXssNEC THE X REG 

9.00 =sKNESLOOPT SLOOP s TIL DONE 
10.00 =s5LUA As#*@sSSET UF CHAR 
11.00 =s JSRIOUTCHRSOUTFUT IT 
12.00 =DONE + RRA NONE sLOOF FOREVER 


1 


ii ii 


13.00 =#T 
#NU 
¥F I 
xXx THIS IS A TEST FROGRAM xx 
ORG $0100 
START 1. TiX #EF FF SET COUNT 
LIA A #%40 SET SECOND COUNT 
L.OOF TEC A HEC THE COUNT 
BNE OOF LOOPTILL DONE 
NEX DEC THE X REG 
BNE LOOF 1 LOOF STIL TONE 
LOA A #°@ SET UF CHAR 
JSR QUTCHR QUTFUT IT 
NONE. BRA NONE LOOF FOREVER 
#NU 
+ 
12.00 =DONE RRA NONE LOOF FOREVER 
#-9FFF»s C SFP 9 FFF 
4.00 =START LIX EF FFF SET COUNT 
#H 45 3 F 


12345678-012348~789012345-7890123456789012345 


4.00 =START 


L.YX 


#¢F FFF SET COUNT 


#+1 0 
3-00 


OVERLAY LOOFL 


3600 


=| OOF 1 


#CSLOOPIELOOR 2s ! 


3200 
9,00 


#° 0 
6.00 
700 


#7CHPT SF 
7400 
#Ay | oy 
7400 
#K 
#7 ¢ ENT 
t 
13.00 
#k 


13.00 
14.00 
15.00 
14.00 
17.00 
1.00 
2400 
3.00 
4.00 
400 
6-00 
7.00 
8.00 
9.00 


3 1OOF 


=L.OOF2 


=1 OOP A 


=IONE 


= TONE 
T 


Hi 


sENT 


THATS 
aa 
* THIS 


HOH OH OH 
3% te 3G 


START 
LOOF? 
LOOF 1 


i HOH H HOH OW OR 


10.00 = 


11.00 
12.00 
13.00 
14.00 
15.00 
14.00 

#06 

x 


NONE 


HOH HOH 


HH 


=k THATS 


9LOOF LS 


L.A 


me oT) 


LDA 
BNE 


! 
DEC 
BNE. 
BRA 


BRA 


BNE 


BNE. 


END 


ALL. 
Is 


ORG 
L. DIX 
LIA 
DEC 
BNE 
EX 
BNE 
L.A 
JSR 
BRA 


ENT 


ALL. 


x 


x 
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#$40 


#40 


#%40 
L.OOF2 


LOOF1 
DONE 


NONE 


LOOFL 


LOOF 1 


$0100 
#$FF FF 
#$40 


LOOF A 


LOOF2 
#°@ 
OUTCHR 
NONE 


SET SECOND COUNT 


SET SECOND COUNT 
SECOND COUNT 


DONE 


SET 
LOOPS TIL 


DEC THE COUNT 
LOOFTILL DONE 
LOOP LFOREVER 


LOOF FOREVER 


LOOP TILL DONE 


LOOF TILL DONE ! 


TEST FROGRAM Xx 


SET COUNT 

SET SECOND COUNT 
DEC THE COUNT 
LOOF TILL DONE ! 
DEC THE X REG 
LOOFs TIL DONE 
SET UF CHAR 
OUTFUT IT 

LOOF FOREVER 


TSC 46800 TEXT ENITING SYSTEM 


LOCN B1 B2 BS 


0040 
0042 
0044 
0046 
0048 
004A 
004C 
004E 
0050 
0052 
00S4 
0056 
0058 
O0SA 
OOSC 
QOSE 
0060 
0062 
0064 
00464 
0068 
006A 
O06E 
006C 
0062 
OQ6E 
0070 
0071 
0072 
0073 
0074 


O1FF 
EoDO 
0023 
ooon 
0018 
0008 
0007 


COPYRIGHT 1977 (C) BY 


TECHNICAL SYSTEMS CONSULTANTS 
ROX 2578 
W. LAFAYETTEs INDIANA 47906 


MM HM MM MM HK 


* EXTERNAL EQUATES 


STACK EQU SO1FF 
MIKBUG EQU $E0D0 
FROMFT EQU $23 
CRGRET EQU $0 
DELCOD EQU $18 
BACKSF ERU $8 
BELL EQU $7 


ORG $40 
x TEMFORARY STORAGE 


TEMF RMB 
XSAVE RMB 
BUFFNT RMB 
BRUFSAV RMB 
CURFOS RMB 
NEWFOS RMB 
SRCHFT RME 
STRNGR RMB 
STRNGE RMB ~ 
STRGEH1 RMB 
STRGE1 RMB 
STRFNT RMB 
SFCFT1 RMB 
SFCFT2 RME 
LASTNO RMB 


ZONE 1 RMB 
ZONE2 RMB 
ZONEUF RMB 


CHGFNT RMB 
CHGEND RMB 
OCRTMF RME 
NUMFLG RMB 
VERFLG RMB 
MSLFLG RME 
FSTZFL RME 
OCRCNT RMB 
FNOFLG RMB 
STRCNi RMB 
OVREEG RMB 
OVRENDID RME 
NOCURL RME 


ie, ioe anon Eee See on Seon SE Se Se Se Sea SS) 


PAGE 


1 
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LOCN Bi B2 B3 


0075 
0076 
0077 
0078 
0079 
007A 
0078 
007C 
007D 
OO7E 
OO7F 
0080 
0081 
0082 
0083 
0084 
0085 
0086 
0087 
0088 
0089 
008A 
O0O8H 
oosc 
oosD 
OO8F 
0090 
0093 
0095 
0096 
0097 
0099 
009B 
oo9n 
OOB1 
OOR2 
OOBS 


O0OR4 


OOBS 
OOB6 
OOB7 
OOHB 
OOB9 
OOBA 
OOBR 


00 
046 
00 
00 
00 
00 


LINFLG 
NXTFLG 
ALLFLG 
OCRFLG 
CHGONF 
APFCOL 
STRCNT 
INCAMT 
BMFFLG 
EQUFLG 
INLMFL 
MOVFLG 
REPFLG 
TMPCHR 
CHKFLG 
SNGLIN 
CHGFLG 
STRCN2 
FNONFL 
LSTFLG 
DECCNT 
FRNFLG 
CPYDRC 
DRCTN 
CHRCNT 
INZFLG 
NUMBER 
TRGLIN 
DELIM 
HEDCNT 
FILBEG 
FILEND 
TABPNT 
TABBUF 
TABEND 
TABCH 
FILL 


LINO 


EOL 
DELAY 
TONCH 
TOFCH 
RONCH 
ROFCH 
BUFFER 


/ 


* PROGRAM STARTS HERE 


JE 03 55 START 


RMB 
RMB 
RMB 
RMB 
RMB 
RME 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RME 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMR 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RMB 
RME 
FCR 
FCR 
FCC 


FCC 


FCB 
FCR 
FCH 
FCE 
FCR 
FCR 
RMB 


ORG 


JMF 


| lll eel cell coed ee oe oe oo on SY 


PES ROU AE GEES re eS ae ee at oe eee 


. 


INITLZ 


PAGE 
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LOCN Bi 
0203 7E 


0206 
0209 
0200 
O20F : 


0212 


0214 
0215 
0216 50 
O217 45 
0218 
0219 
O214A 
021K 12 
o210 


O21E 
O21F 
0221 
0222 
0223 
0224 
0225 
0226 
O227 
0228 
022A 


0225 
022C 
O22E 
O22F 
0230 
0231 
0232 
0233 
0234 
0235 
0237 
0238 
0239 SO 
023A 
0238 
023C 
O23E 
O23F 
0240 
0241 


TEXT EDITING SYSTEM 


R2 
03 


Et 
Et 
E1 
E4 
FF 


[itt 


Dg 


BE 


BE 


CH 


F3 


F3 


BS 
83 


RESTRT JMF 


xX EXTERNAL I-0O 


JMF 
JMF 
JMF 
JMF 
FIR 


INCH 
OUTCH 
TINCH 
TOUCH 
MEMENTI 


* COMMAND 


TABLE FCC 


FC 
FOR 
FCC 


FCE 
FOB 
FCC 


FCR 
FOR 
FCC 


FCB 
FOE 
FCC 


FCB 
FOR 
FCC 


FCH 
FIR 
FCC 


FCR 
FOE 


TABLE 


FEIT 
ROUTINES 


$E1AC 
$E101 
$E1AC 
$E101 
$1FFF 


TAPE INPUT ROUTINE 
TAFE OUTFUT ROUTINE 


‘APPEND 


0 
AFPFENT! 
“A’ 


ce) 
AFFEND 
‘ROTTOM’ 


0 
BOTTOM 
‘BR?’ 


0 
BOTTOM 
“ CHANGE ’ 


0 
CHANGE 
‘COPY’ 


COPY 
‘co’ 


COFY 
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LOCN Bi B2 B3 


0243 43 FCC ofl BS 
0244 00 FCR .?) 

0245 OD CB FOR CHANGE 
0247 44 FCC ‘DELETE ’ 
0248 45 

0249 4C 

024A 45 

0O24B 54 

024C 45 

024D 00 FCR ¢) 

O24E OC BA FDR DELETE 
0250 44 FCC ‘Dp’ 
0251 00 FCB .¢) 

0252 OC 8A FOR DELETE 
0254 45 FCC ‘EXPAND’ 
0255 58 

0256 50 

0257 41 

0258 4E 

O259 44 

O25A 00 FCB 0) 

O25B 12 5C FDR EXPAND 
0250 45 FCC “EXP ’ 
O25E 58 

O25F SO 

0260 00 FCE 0 

0261 12 SC FOB EXPAND 
0263 46 FCC ‘FIND’ 
0264 49 

0265 4E 

0266 44 

0267 00 FCR 0 

0268 O9 CF FDE CFIND 
026A 46 . FCC ‘F/ 
O26B 00 FCEH 0 

026C 09 CF FOB CFINDI 
O26E 47 FCC ‘GAP’ 
O26F 41 

0270 30 

0271 00 FCH 0 

0272 14 13 FOE GAF 
0274 48 FCC “HEATIER ’ 
0275 45 

0276 41 

0277 44 

0278 45 

0279 S2 

027A OO FCR 0 

O27KR 11 1B FDE HEADER 
0270 48 FCC “H’ 


O27E 00 FCE 0 


TSC 6800 TEXT EDITING SYSTEM PAGE 5 


LOCN Bi K2 B3 


O27F 11 18 FOE HEALER 
0281 49 FCC “INSERT ’ 
0282 4E 

0283 33 

0284 45 

0285 52 

0286 54 

0287 00 FCR 0 

0288 OA C8 Fw INSERT 
O2BA 49 FCC ay? 
028K 00 FCE 0 

O028C OA C8 FB INSERT 
O28E 4C FCC ‘LOG’ 
O28F 4F 

0290 47 

0291 00 FCH 0 

0292 09 89 FOR EXIT 
0294 41 FCC “MOVE ’ 
0295 4F 

0296 S56 

0297 45 

0298 00 FCH 0 

0299 OF 4 FIUB MOVE 
029k 4f FCC ‘M0’ 
O29C 4F 

O29T 00 FCRE 0 

O29E OF N4 FIR MOVE 
O2A0 4E FCC ‘NEXT’ 
O2A1 45 

O2A2 58 

O2AS3 54 

O2A4 00 FCR 0 

O2AS5 09 CC Fre NEXT 
O2A7 4E FCC “NUMBERS ’ 
O2A8 SS 

O2A9 41 

O2AA 42 

O2AB 45 

O2AC S2 

O2AD 33 

O2AE 00 FCR 0 

O2AF O9 1D FIR NUMSET 
O2R1 4E FCC ‘NU’ 
O2B2 SS 

O2EI 00 FCE .¢) 

O2R4 O9 1fI FOE NUMSET 
O2K6 4E FCC oN’ 
0287 00 FCR 0 

O2RB 09 CC FOE NEXT 
O2BA 4F FCC ‘OVERLAY’ 
O2HE S56 

O2BC 45 


O2BD S2 
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LOCN Bi B2 B3 


O2BE 4C 

O2BF 41 

9200 59 

O201 00 FCE 0 

0202 OF 21 FIR QVERLA 
02C4 4F FCC ‘0° 
O?2CS 00 FCR 0 

O2C46 OF 21 FOIE OVERLA 
0208 50 FCC “PRINT ’ 
0209 S2 

O2CA 49 

O2CH 4E 

O2CC S54 

O2CD OO FCR 0 

O2CE 08 77 FOIE FRINT 
O2n0 SO FCC mpHe 
O20D1 00 FCH @) 

O2n2 08 77 FIIB FRINT 
0204 S2 FCC “READ ’ 
0205 45 

0206 41 

0207 44 

0208 00 FCB ?) 

O29 14 24 FIR READ 
O2PDR S2 FCC “RENUMEER ’ 
O2nc 45 

O200 4E 

O2QDE SS 

ODF 41 

O2ZEO 42 

O2E1 45 

O2E2 S2 

O2E3 00 FCK 0 

O2E4 046 AS FOR RENUME 
QO2E6 S2 FCC “REN ’ 
O2ZE7 45 

O2EB8 4E 

O2ZE9 OO FCH 0 

O2EA 06 AS FOE RENUMB 
OZEC S2 FCC “REPLACE ’ 
O2ED 45 

O2ZEE SO 

O2EF 4C 

O2FO 41 

Q2F1 43 

OQF2 45 

O2F3 00 FCRH 0 

O2F4 OC 87 FOR REFLAC 
O2F6 S2 FCC “R’ 
O2F7 00 FCRH ?) 

O2F8 OC 87 FOR REFLAC 


O2FA SS FCC “SAVE ’ 
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LOCN B1 B2 BS 


O2FB 41 

O2FC 36 

O2FT 45 

O2FE 00 FCR 0 
O2FF 13 9I FOR SAVE 
0301 53 FCC ‘SET’ 
0302 45 

0303 54 

0304 00 FCE 0 
0305 11 CC FIR SET 
0307 53 FCC “STOF’ 
0308 54 

0309 4F 

030A SO 

O30B 00 FCE 0 
O30C O09 89 FItk EXIT 
O30E 53 FCC ‘S’ 
O30F 00 FCE 0 
0310 09 89 FOE EXIT 
0312 54 FCC ‘TAB’ 
0313 41 

0314 42 

0315 00 FCE 0 
0316 10 TO FOB TAH 
0318 54 FCC “TOF ’ 
0319 4F 

031A SO 

O31 00 FCR 0 
O31C O09 9D Fos TOF 
OS1E 54 FCC fet is 
O31F 00 FCH 0 
0320 09 Ii FOR TOF 
0322 56 FCC ‘VERIFY’ 
0323 45 

0324 532 

0325 49 

0326 46 

0327 59 

0328 00 FCB 0 
0329 O09 43 FIR VERSET 
0328 56 FCC “ue 
032C 00 FCR 0 
0320 09 63 FOR VERSET 
O32F 57 FCC ‘WRITE ’ 
0330 52 

0331 49 

0332 54 

0333 45 

0334 00 FCB 0 
0335 13 AD FORx WRITE 


0337 S57 FCC ‘WwW’ 
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LOCN B1 B2 B3 


0338 00 FCR 0 

0339 13 AD FOR WRITE 
O33B 58 FCC ‘x’ 
033C 00 FCR 0 
0330 09 78 FIR XCNTRL 
O33F SA FCC “ZONE ’ 
0340 4F 

0341 4E 

0342 45 

0343 00 FCB 0 

0344 11 7E FOE SZONE 
0346 SA FCC a a 
0347 00 FCB 0 
0348 11 7E FOB SZONE 
034A 00 FCB 0 


x NEW FILE STRING 


O34B 4E NWFSTR FCC ‘NEW FILES ’ 
O34C 45 

0341 57 

O34E 20 

O34F 44 

0350 49 

0351 4C 

0352 45 

0353 3A 

0354 04 FCB 4 


K INITIALIZATION ROUTINE 


0355 BE 01 FF INITLZ LIS #STACK 


0358 CE 14 92 LIX #BREGFNT 

O35B LF 97 STX FILBEG 

O350 DF 99 STX FILEND SET END ALSO 

O35F CE 02 03 LIX #RESTRT 

0362 FF AO 48 STX A048 SET RESTART ADDRESS 
0365 CE 00 O1 LEX #1 SET ZONES 

0368 IF SE STX ZONE1 

O36A CE O1 36 LDX #$0136 

0360 DF 60 STX ZONE2 

OS6F 86 46 LDA A #70 SET UF HEADER 
0371 97 96 STA A HEDCNT 

0373 4F CLR A 

0374 97 9D STA A TABBRUF FIX STORAGE 

0376 4A TEC A 

0377 97 SF STA A INZFLG 

0379 97 6A STA A NUMFLG TURN ON NUMBERS 
0378 97 6B STA A VERFLG ALSO VERIFICATION 
03701 CE 03 4B LX #NWFSTR FOINT TO STRING 


0380 BI 04 83 JSR FSTRNG OUTPUT IT 
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LOCN Bl B2 BS 


xk RESTART ENTRY POINT 


0383 DE 97 PEDIT LIX FILBEG FOINT TO BEGIN 
0385 DF 48 STX CURFOS 
0387 7F 00 6C CLR MSLFLG 


x MAIN EDIT LOOF 
O38A BE 01 FF EDIT LOS #STACK SETUP STACK POINTER 


0380 DIF 40 STX TEMF SAVE POINTER 

O38F DE 48 LIX CURFOS SET CURRENT POSITION 
0391 DIF 4A STX NEWFOS SAVE IT 

0393 CE OO 4D LIX #PSTZFL 

0396 4F CLR A CLEAR ACC. 

0397 A7 00 ELIT. STA A Ox CLEAR OUT LOCATION 
0399 08 INX BUMP POINTER 

O39A BC 00 BE CFX #CHRCONT+1 

O39D 26 FB BNE EDIT. 

O39F DE 40 LIX TEMF RESTORE POINTER 
O3A1 96 BF LDA A INZFLG INITIALIZE? 

O3A3 27 06 REQ EQIT2 

O3AS 7F 00 8F CLR INZFLG 

O3A8 7E OA EA JMF INSER4 GO INSERT LINES 
O3AB 94 46C EnIT2 LIA A MSLFLG MULTIFLE ST. PER LINE? 
O3AN 26 22 BNE ELITSS 

OZAF 97 BE STA A CHRCNT+1 

O3k1 CE OO BE LIX #BUFFER SET POINTER 

O3B4 BI O04 4E JSR PCRLF 

O3B7 B4 23 LDA A #PROMFT SETUF PROMPT 

O3B9 BI O02 09 JSR OUTCH OUTFUT IT 

O3BC BD 04 99 EDITS JSR INCHAR 

OSEBF 27 C9 BER EnIT 

03C1 AZ 00 ELIT4 STA A OX FUT CHAR IN BUFFER 
O3C3 81 OL CMF A #CRGRET IS IT AC.R. 

O3CS 27 OS BEQ EnITS 

O3C7 HI 04 BB JSR BUFLIM IS BUFFER FULL? 
O3CA 20 FO BRA ENITS REF EAT 

O3CC CE 00 BR EDITS LIX #BUFFER RESTORE FOINTER 
O3CF TIF 44 STX BUFF NT 

0301 7F 00 6C EMITSS CLR MSLFLG 

O3n4 BI 04 2 JSR FINDL FROCESS LINE INFO 
O3D7 AF CLR A 

0308 97 75 STA A LINFLG CLEAR FLAS 

O3SNA 97 8C STA A DRCTN 

O3nC DF 4A STX NEWFOS SAVE FOINTER 

OSE TE 44 LIX BUFPNT 

O3EO BI 04 92 JSR SKIFSF SKIP SFACES 

O3E3 LIF 44 STX RUF PNT SAVE POINTER 

O3ES 81 3D CMF A #¥’= IS IT AN ‘=’? 
O3E7 26 08 BNE EQITSS 
OSE? O08 TNX RUMF FOINTER 


OSEA IIF 44 STX BUFF NT 


TSC 46800 


LOCN 
O3EC 
O3EF 
O3F 1 
O3F4 26 
O3FS6 
O3F9 20 
O3FB 
OSFD 
0400 
0402 
0404 
0406 
0408 26 
040A 
040C 
040D 
040F 
0411 
0413 
0414 
0416 
0417 
0419 26 
O41B 
041C 
0410 
O41E 
0420 27 
0422 
0423 
0425 
0427 
0429 
042A 
042C 
O42F 26 
0431 
0433 26 
0435 
0438 26 
043A 
0438 
0430 
043F 


0441 CE 


0444 
0446 
0449 


TEXT EDITING SYSTEM 


R2 
OA 
44 
06 
05 
08 
3A 
40 


02 


04 


30 


03 


RS 
AS 


63 
77 


14 


c8 


4C 


6c 
BA 


EDITSS 


EDITS8 


EDITS 


EDIT65 


EDIT7 


EDITS 


EDITSS 


EDIT88 


xX ERROR 
ERROR 
x PRINT 


PREROR 


LIX #EQUALS 
BRA ELITSsS 
JSR TSTENT! 
BNE EDITSS 
LIX #FP RINT 
BRA ELDITS§ 
STX TEMF' 
LIX #TABLE 
STX TABFNT 
TST OrXx 
BEQ EDITS 
CMF A Ovx 
BNE EnIT? 
LIX RUFPNT 
INX 

LOA A Orx 
STX BUF PNT 
LOX TABPNT 
INX 

BRA EMITS 
INX 

TST OX 
BNE EDIT? 
INX 

INX 

INX 

TST O»Xx 
BEQ ERROR 
DEX 

STX TABFNT 
LIX TEMP 
BRA ERIT65S 
INX 

LIX OX 
CFX #INSERT 
BNE EDITSS 
LOA A  INLMFL 
BNE ELITSs 
JSR TSTOVR 
BNE NOTFND 
CLR A 

STA A OVRBEG 
STA A OVRENIT 
JMF O»X 
ROUTINE 

LIX #ERRSTR 
ERROR MESSAGE 
BSR PSTRNG 
CLR MSLFLG 
JMF ELIT 
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GO TO IT 
TEST END 


POINT TO PRINT 
FOINT TO TABLE 
SAVE IT 

IS IT NULL? 
CHECK CHARACTER 
ARE THEY EQUAL? 
RESTORE POINTER 
BUMP IT 

GET NEXT CHAR. 
SAVE POINTER 
BUMF THE TABLE PNTR 


BUMP THE FOINTER 
IS IT NULL? 


BUMP POINTER 3 TIMES 
END OF TABLE? 

REPORT ERROR 

SAVE THE POINTER 
REPEAT 

BUMP THE POINTER 


GET ADDRESS 
IS IT INSERT? 


LIMITS? 
CLEAR FLAGS 


GO TO IT 


FOINT TO STRING 


CLEAR FLAG 
RETURN 


TSC 6800 


LOCN 
044C 


044D 


044E 
0450 
0453 
0455 
0457 


0458 
04359 
045A 
O45B 
045C 
0450 
O45E 


O45F 
0462 


0464 
0465 
0466 
0467 
0468 
0469? 
046A 
O46B 
046C 
O46] 
O46E 
O46F 
0470 


0471 
0474 


0476 
0477 
0478 
0479 
047A 
0475 
047C 


Bi 


oF 


04 


CE 
20 


33 
59 
4E 
54 
41 
38 
20 
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B2 BS 


42 
04 58 
30 


42 


04 64 
EO 


04 76 
CE 


ERRSTR FCC es 
FCE 4 


* PRINT CARRIAGE RETURN & LINE FEED 
PCRLF STX XSAVE SAVE POINTER 
LIX #CRLFST POINT TO STRING 
BSR PDATAI 
LOX XSAVE RESTORE STRING 
RTS RETURN 


CRLFST FCE SD FAxr090707074 


x REFORT LINE NOT FOUND 


NOTFND LDX #NOFSTR POINT TO STRING 
BRA PREROR 


NOFSTR FCC “NO SUCH LINE’ 


FCE 4 


x REFORT SYNTAX ERROR 


SYNERR LDX #SYNSTR FOINT TO STRING 
BRA FREROR 


SYNSTR FCC “SYNTAX ERROR‘ 


TSC 6800 TEXT EDITING SYSTEM 


LOCN 
0470 
O47E 
O47F 
0480 
0481 
0482 


0483 
0485 
0487 
0489 
048B 
048E 
O48F 


0491 
0492 
0494 
0496 
0498 


0499 
049C 
049E 
04A0 
04A3 
04AS 
04A6 
04A9 
O4AB 
O4AD 
O4AF 
O4B1 
04B3 
0485 
0487 
O4BA 


O4BB 
O48C 
O4BF 
04C1 
04C3 


B1 B2 BS 


45 
52 
52 
aF 
52 
04 


6D 


81 
27 
BD 


20 


08 
8C 
26 
86 
Br 


C9 


04 
on 


02 


F4 


00 
20 


F9 


o1 
F9 
07 


02 


09 


06 


BB 


BE 


BE 


43 


09 


* PRINT 


FSTRNG 
PDATAL 


x SKIP 


SKIPSA 


SKIFSF 


SKIFS2 


x INPUT 


INCHAR 
INCHR1 


INCHR3 


INCH35 
INCHR4 


* CHECK 


BUFLIM 


OVER 
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FCB 4 

STRING ROUTINE 

BSR FCRLF OUT C.Re LoFe 
LDA A Ox GET CHAR. 

CMF A #4 IS IT TERM? 
BEQ SKIFS2 

JSR OUTCH OUTFUT IT 

INX BUMF FOINTER 


BRA POATAL 


ALL SPACES 


INX 

LDA A Ox GET A CHAR. 
CMP A #’ IS IT A SPACE? 
BEQ SKIFSA REPEAT 

RTS RETURN 


ANI CHECK CHARACTER 


JSR INCH GET CHAR 
CMF A #BACKSP IS IT A BACKSPACE? 


BNE INCHRS 
CPX #BUFFER RUFFER BEGINNING? 


BEQ INCHR4 


DEX DEC THE POINTER 
HEC CHRCNT +1 

BRA INCHAR 

CMF A #DELCOD IS IT A DELETE? 
REQ INCHR4 

CMF A #$1F IS IT CONTROL? 


BHI INCH3S 
CMF A #CRGRET IS IT A C.R.-? 


BNE. INCHAR 

INC CHRCNT+1 INC CHAR. COUNT 
RTS RETURN 

FOR BUFFER OVERFLOW 

INX RUMF THE FOINTER 
CFX #BUFFER+136 

BNE INCHR4 

LOA A #BELL LOAD UF BELL 

JSR OUTCH OUTPUT IT 
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LOCN B1 B2 BS 


04C6 BD 02 04 JSR INCH GET NEW CHAR. 
04C9 81 0B CMF A #BACKSP IS IT BACKSPACE? 
O4CB 26 FA4 BNE OVER 

04CD 09 DEX CEC THE FOINTER 
O4CE 7A 00 SE DEC CHRCNTt1 

0401 39 RTS RETURN 


x PROCESS LINE ROUTINE 


O4D2 80 BE FINDL BSR SKIPSF SKIF SPACES 
0404 81 30 CMP A #’= IS IT ’=’? 
O4D6 27 OA BEQ FINDLO 

04pe 7C 00 75 INC LINFLG SET FLAG 

O4DB BI 07 3B JSR CLASS CLASSIFY CHAR. 
O4DE C1 O1 CMP B #1 IS IT A LETTER 
O4EO 23 03 BLS FINIL2 

O4E2 TE 4A FINDLO LIX NEWFOS SET POINTER 
O4E4 39 FINDL1 RTS RETURN 

O4E5 27 23 FINDL2 BEQ FIND 

O4E7 20 14 BRA FINE: 


x TARGET ENTRY FOINT 


O4E9 BE 03 FINDT BSR FIND'TO 

O4ER DF 93 STX TRGLIN SAVE TARGET FOS. 
O4ED 39 RTS RETURN 

O4EE 7F 00 8C FINDTO CLR DRCTN 

O4F1 BD 07 38 JSR SKPCLS 

O4F4 Ci O1 CMF B #1 Is IT A LETTER? 
O4F6 23 03 BLS FINDT2 

O4F8 7E 04 71 FINDTI JMF SYNERR REPORT SYNTAX ERROR 
O4FB 27 715 FINDT2 BEQ FIND62 

O4F0 7F 00 8C FIND CLR [IRCTN CLEAR DIRECTION 
0500 91 #4 CMP. A LINO IS IT LINE NUMBER 
0502 26 2 BNE FIND 

0504 08 INX BUMF THE FOINTER 
OS0S BO 04 92 JSR SKIF SF 

0508 [IF 44 STX RUFPNT 

OSOA BD 07 SS FIND JSR BCDCON 

oS5S00 [IF 40 STX TEMF SAVE FOINTER 
OSOF DE 4A LDX NEWFOS 

0511 96 90 LOA A NUMBER GET NUMBER 

0513 Al 00 CMF A Orx COMPARE IT 

0515 26 OA BNE FIND14 

0517 94 91 LIA A NUMBER+1 GET NEXT NUM, 
0519 Al O1 CMF A 1X COMPARE 

OS1B 26 04 BNE FIND14 

O510 94 92 LDA A NUMBER+2 

OSIF Al O2 CMF A 2X 

0521 24 03 FIND14 ECC FIND16 

0523 7A 00 SC NEC DRCTN SET DIRECTION 
0526 DE 40 FINDi6 LODX TEMF RESTORE FOINTER 
0528 BIH O7 AB JSR FNDINUM FINI) LINE NUMBER 


O52B 27 B7 BEQ FINDL1 
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LOCN 
0520 
OS2F 
0532 
0535 
0537 
OS3A 
053C 
OS3E 
0541 
0543 
0545 
0546 
0548 
054A 
0540 
OS4F 
0551 
0554 
0555 
0557 
0559 
OSSA 
OS5C 
OSSE 
0560 
0562 
0565 
0564 
0569 
O56B 
0560 
OS6F 
0OS71 
0573 
0576 
0578 
057A 
0570 
OS7F 
0582 
0584 
03587 
0589 
0s8c 
OS8F 
OS91 
0594 
0597 
OS9A 
059C 
OSIE 
OSAO0 
OSAS 
OSAS 


O5SA8 


BU 


Br 


BD 
Br 
27 
94 


BI 
26 
7C 


TEXT EDITING SYSTEM 


R2 
74 
07 
06 
OA 
00 
AG 
4A 
08 
21 


08 


B3 


FO 
63 
76 


OF 


FO 


8C 


8c 


38 


2A 
C3 


21 


38 


7F 


FIND2 


FINI 


FIND4 


FINDS 


FING 


FINIG2 


FINDG3 


FIND65 


FIND66 


FINING7 


STA 
JMF 


BNE 
TST 
BEQ 
LIX 
JMF 
CMF 
BNE 
INX 
STX 
LIX 


| SMP 


CMF 
BNE 
DEC 
INX 
STX 
LIX 
RTS 
CMF 
BEQ 
CMF 


DEC 
INX 
JSR 
CMP 
BEQ 
BLS 
LOA 
REQ 
JSR 
LDX 
BRA 
JSR 
LOX 
TST 
BNE 
JSR 
BEQ 
JSR 
JSR 
BEQ 
JSR 
JSR 
JSR 
BEQ 
LIA 
BNE 
JSR 
BNE 
INC 
RTS 


NOCURL 
BAKONE 
TSTEND 
FINDS 
NXTFLG 
FINDIILO 
NEWFOS 
UPONE 
+’) 
FIND4 


BUFF NT 
FILEND 
BAKONE 
#/° 

FINDS 
DRCTN 


BUFF NT 
FILBEG 


#/+ 
FINI 
#/- 
FIND? 
DRCTN 


SKPCLS 
#1 
FINI62 
FINI? 
LINFLG 
FINDTi 
CLRNUM 
NEWFOS 
FINII66 
ECIICON 
NEWFOS 
LINFLG 
FIND6S 
TSTNUM 
FINIIG7 


- TDECNUM 


TSTNUM 
FINDG7 
DECNUM 
NXTLIN 
TSTOVR 
FINDSS 
OVREND 
FINN67 
TSTNUM 
FINIG7 
INUMFL 
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CHECK FLAG 

SET FOINTER 

UF ONE LINE 

IS ITA "I"? 
BUMP THE POINTER 
SET FOINTER 
BACKUP ONE LINE 
IS IT Ao eF 


SET DIRECTION 
BUMF THE POINTER 


SET FOINTER TO BEGIN 
RETURN 

IS IT A "+"? 

IS: iT As t="? 

NEC DIRECTION 

BUMF THE FOINTER 


SKIF SPACES 
IS IT NUMBER? 


TEST FLAG 


SET FOINTER 
CONVERT NUMBER 
SET FOINTER 
CHECK FLAG 

IS IT ZERO? 
DEC NUMBER 
TEST NUMBER 
GOTO NEXT LINE 
CHECK LIMITS 


BEGINNING? 


RETURN 


TSC 6800 


LOCN 
OSA? 
OSAB 
OSAD 
OSAF 
O5B2 
OSB3 
OSB4 
OSES 
05B8 
OSEB 
OSED 
OSBF 
o5c1 
05C3 
05C4 
05C6 
0SC8 
OSCA 
OSCB 
oscp 
OSCF 
OSDO 
OSD2 
0504 
oSDS 
O38 
OSDB 
osnn 
OSDF 
OSE2 
OSES 
OSE8 
OSEA 
OSER 
OSED 
OSEF 
OSF2 
OSF4 
OSFS 
OSF7 
OSF9 


OSFA 
OSFC 
OSFD 
OSFE 
0600 
0602 
0604 
0606 
0608 
060A 


97 
SF 
08 
OF 


6D 
27 
91 
27 


08 


TEXT EDITING SYSTEM 
B2 B3 
4F FINDZ BSR SETNEL 
6D FIN702. BSR ZONE 
4A LOX NEWPOS 
06 C3 JSR NXTLIN 
FIND71  INX 
INX 
INX 
06 5A FIN711 JSR FIXZON 
08 2A FIND72 JSR DECNUM 
22 REQ FINEI7S 
oD LIA B #CRGRET 
00 CMF B O*X 
03 BEQ FIND73 
INX 
F2 BRA FIND72 
85 FIND73 LDA A CHGFLG 
DE BNE FIND67 
INX 
99 CPX FILEND 
06 BEQ  *+08 
EX 
85 FIND74 LDA A CHGFLG 
n4 BNE FINDS? 
DEX 
06 C3 JSR NXTLIN 
08 21 JSR TSTOUR 
17 BNE FINII77 
D3 ! BRA FIND71 
06 SA FIND7S JSR FIXZON 
06 CI JSR STRING 
00 70 TST FNIIFLG 
ES REQ FINII74 
CLR B 
85 LIA A CHGFLG 
05 BNE FINII77 
07 Fé JSR BAKON2 
93 STX TRGLIN 
FINN77 RTS 
O1 FINII78 LDA A #1 
73 STA A OVRENII! 
RTS 
* SET UF DELIMITERS 
95 SETDEL STA A DELIM 
CLR B 
INX 
4E STX STRNGE 
00 SETDE2 LDA A 0rX 
SF BSR TSTEND 
08 REQ SETIIE4 
95 CMF A DELI 
04 BEQ SETIIES 
INX 
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SET DELIMITER 

SET ZONE 

SET FOINTER 

GO TO NEXT 

BUMP POINTER 3 TIMES 


CHECK FOR FOSTZONE 
DEC COLUMN COUNT 
TEST FOR C.R. 

BUMP THE FOINTER 
REPEAT 

CHECK IF CHANGE 


BUMF THE FOINTER 
END OF FILE ? 


DEC THE FOINTER 
CHECK LIMITS 
FIX UF ZONE 


PROCESS STRING 
FIND IT? 


SAVE TARGET POINTER 
RETURN 
SET FLAG 


RETURN 


SAVE DELIMITER 
HUMP THE POINTER 
SAVE BEGINNING 

GET A CHARACTER 

IS IT A DELIMITER? 


BUMP THE FOINTER 


T8C 6800 TEXT EDITING SYSTEM PAGE 16 


LOCN Bil B2 B3 


060B 5C INC B BUMB COUNTER 

060C 20 F2 BRA SETDE2 REPEAT 

O60E DF 50 SETDE4 STX STRNGE SAVE END OF STRING 
0610 D7 7B STA B STRCNT 

0612 8D 4F BSR TSTEND 

0614 27 01 BEQ SETDES 

0616 08 INX BUMP THE POINTER 
0617 DF 44 SETDES STX BUFPNT 

0619 39 RTS RETURN 


xk SET UP ZONE 


061A BD 07 3B ZONE JSR CLASS GO CLASSIFY CHAR. 
O61D 7F OO 4D CLR PSTZFL CLEAR FLAG 

0620 Ci O1 CMF R #1 IS IT A NUMBER 
0622 26 17 BNE ZONES 

0624 BD 07 55 JSR BCDCON CONVERT NUMBER 
0627 8D 1B BSR CMPZN1 CHECK ZONE1 

0629 25 10 BCS ZONES 

062B 8D 22 BSR CMPZN2 CHECK ZONE2 

0620 22 OC BHI ZONES 

062F 7C 00 6D INC PSTZFL SET FLAG 

0632 946 90 LIA A NUMBER PUT NUM IN ZONE BUF. 
0634 97 62 STA A ZONBUF 

0636 96 91 LUA A NUMBER+1 

0638 97 63 STA A ZONBUF +1 

063A 39 RTS RETURN 

O63B 96 SE ZONES LDA A ZONE FUT ZONE1 IN BUF, 
063D 97 62 STA A ZONBUF 

O63F 96 SF LIA A ZONE1+1 

0641 97 63 STA A ZONBUF +1 

0643 39 RTS RETURN 


* COMPARE ZONE1 TO NUMBER 


0644 [ié 90 CMFZN1 LIA BR NUMBER GET NUMBER 
0646 Di SE CMF B ZONE1 CHECK 

0648 24 04 BNE CMF'Z14 

064A D6 91 LIA B NUMBER+1 

064C D1 SF CMP B ZONE1+1 

O64E 39 CMFZ14 RTS RETURN 


* COMPARE ZONE2 TO NUMBER 


O64F [16 90 CMPZN2 LDA BR NUMBER GET NUMBER 
0651 [1 60 CMF BR ZONE2 CHECK 

0653 26 04 BNE CMPZ24 

0655 [16 91 LOA B NUMBER+1 

0657 Ti 61 CMP BR ZONE2+1 


0659 39 CMPZ24 RTS RETURN 


TSC 6800 


LOCN 


065A 


0663 
04665 
0647 
0669 


066A 
066C 
066E 
0670 
0672 
0674 
0676 
0677 
0679 
0678 


067C 
O67E 
O67F 
0681 
0682 
0684 


0687 
0688 
048A 


O68B 
04680 
O468F 
0691 
04693 
04695 
0497 


Bi 


81 


91 
39 


TEXT EDITING SYSTEM 


B2 


62 


90 


91 


on 
02 


BS 


O1 
91 
91 
70 
90 


BS 
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x PUT CORRECT ZONE IN NUMBER 


ZONBUF 
NUMBER 
ZONBUF +1 
NUMBER+1 


LIA A 
STA A 
LIA A 
STA A 
RTS 


FIXZON 


* TEST TERMINATOR (C.R, 
CMP A #CRGRET 
REQ TSTEN2 
CMF A EOL 
RTS 


TSTEND 
TSTEN2 


x BUMP NUMBER BY ty «1» 


#1 
INCAMT 
INCNUM 
EMFNU4 
#$10 
NUMBER+2 


LIA A 
LIA & 
BEQ 
BPL 
LDA 
ADL 
DAA 
STA A 
BCS 

RTS 


RMF'NUM 


DD 


BMPNU4 


NUMBER+2 
INCNUM 


x INCREMENT 


INCNUM LIA A #1 
CLR E 
ADT A NUMBER+1 
DiAA 
STA A NUMBER+1 
TRA 
ADC A NUMBER 
DAA 
STA A NUMBER 
RTS 


* FUT NUMBER AT X 


FUTNUM LIA A NUMBER 
STA A’ Ox 
LIA A NUMBER+t1 
STA A 1X 
LIA A NUMBERt2 
STA A 2X 
RTS 


OR 


NUMBER BY ONE 


GET ZONE 
FUT IN NUMBER 


RETURN 


OR EOL) 


IS IT C.R.? 


RETURN 


O1 


CHECK AMOUNT 


SET BUMF 
ALLII IN 
ADJUST IT 
SAVE 


RETURN 


SET UF ONE 


ADDN IN ONE 
ADJUST IT 
SAVE IT 
ALJUST NUMBER 


RETURN 


GET NUMBER 
SAVE IT 


RETURN 


TSC 6800 


LOCN 


0698 
069A 
069C 
O69E 
06A0 
06A2 
06A4 


06C3 
0é6CS 
06C7 
06CA 


Oé6CD 
06D0 
06D2 
0604 
O67 
0609 
O6DA 
O60C 
O6DE 
06E0 
06E2 
06E4 
O046E6 
06E8 
O6EA 
O6EC 


Bi 


AG 
97 
Ab 
97 
AG 
97 
39 


TEXT EDITING SYSTEM 


R2 


00 
90 
o1 
91 
02 
92 


09 
97 
00 
07 


D7 
08 
73 
FS 
83 


08 


B3 


A4 
7C 
AZ 


OF 


OF 
FO 


70 


70 


*x GET NUMBER FROM X 


GETNUM LIA A Ox 
STA A NUMBER 
LDA A 1X 
STA A NUMBER+1 
LDA A 29X 
STA A NUMBER+2 
RTS 


* RENUMBER FILE 


RENUMB JSR TFORCR 
LDX FILBEG 
RENUM1 CLR INCAMT 
JSR CLRNUM 
RENUM2 BSR BMPNUM 
BSR PUTNUM 
JSR UPONE 
LDA A OVREND 
BEQ RENUM2 
LIA A CHKFLG 
BEQ RENUM4 
RTS 
RENUM4 JMP PRINTS 
x GO TO NEXT LINE 
NXTLIN LIA A DRCTN 
BMI NXTLI2 
JMP UPONE 
NXTLI2 JMF BAKONE 


x PROCESS STRING ROUTINE 


STRING CLR FNDIFLG 
LIA BR STRCNT 
BNE STRIN1 
INC FNIIFLG 
STX LASTNO 
RTS 

STRIN1 LOA KR #CRGRET 
STX SRCHFT 
STX LASTNO 
LIX STRNGE 

STRIN2 STX STRENT 
LDA A O+rx 
LIX SRCHFT 

STRINS CMF BB OrxX 
BEQ STRIN4 
CMF A Ox 
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GET NUMBER 
SAVE IT 


RETURN 


SET FOINTER 


CLEAR NUMBER 
RUMP NUMBER 
SAVE IT 


HIT LIMIT? 
REFEAT 
CHECK FLAG 


RETURN 
RETURN 


CHECK DIRECTION 


MOVE UF ONE 
MOVE BACK ONE 


CLEAR FLAG 


FOUND NULL STRING 
SAVE FOINTER 
RETURN 


SAVE FOINTER 
SAVE FOINTER 
FOINT TO BEGIN 
SAVE FOINTER 
GET A CHARACTER 
RESTORE FOINTER 
C. RET. ? 


COMP. CHAR. 


TSC 46800 


LOCN 
O6EE 
O6FO 
OGFS 
O6FS 
O6F8 
O6FA 
O4FB 
O6F I 
O6FE 
O6FF 
0702 
0705 
0706 
0707 
0709 
070C 
0700 
O70E 
0710 
0713 
0715 
0716 
0718 
O71A 
071C 
O71E 
O71F 
0722 
0725 
0727 
0729 
072B 
0722 
O72E 
0731 
0732 
0733 
0735 
0737 


0738 


O73 
O730 
O73F 
0740 
0742 
0744 
0746 


Bl 
27 
7It 
26 
70 
26 
08 
DIF 
36 
37 
Bh 
RI 
33 
32 
23 
7F 
39 
os 
IF 
7C 
DE 
08 
9C 
27 
20 
De. 
08 
Bi 
Bog 
23 
20 
06 
27 
37 
Ri 
33 
SA 
26 
TE 
39 


Bit 


DF 
Ad 
SF 
681 
23 
81 


an he 


TEXT EDITING SYSTEM 


H2 
in 
Ord) 
14 
00 


29 
An Oe 


3C 


06 
06 


LF 
00 


Fé 


SC 


04 


44 
00 


10 
39 
02 


BS 
6 


70 


7c 
AF 


70 


70 


7C 
4F 


7C 


REQ STRINGS 
TST PSTZFL 
BNE STRIN4 
TST FNDFLG 
BNE STRING 
INX 
STX LASTNO 
FSH A 
FSH E 
JSR INCNUM 
JSR CMFZN2 
FUL EB 
FUL A 
BLS STRING 
STRIN4 CLR FNDFLG 
RTS 
STRINS INX 
STX SRCHFT 
INC FNIIFLG 
LIX STRPNT 
INX 
CFX STRNGE 
BEQ STRIN7 
BRA STRIN2 
STRIN6 LIX LASTNO 
INX 
JSR INCNUM 
JSR CMPZN2 
RLS STRING 
BRA STRIN4 
STRINZ LIIA BK STRCNT 
STRING HEQ STRINI 
PSH BE 
JSR INCNUM 
FUL EB 
DEC & 
BNE STRINS 
STRINY LIX LASTNO 
RTS 
x SKIF AND CLASSIFY 
SKFCLS JSR SKIFSF 


* CLASSIFY CHARACTER 


CLASS STX BUFFNT 
LIA A Ox 
CLR B 
CMF A #$2F 
BLS CLASS4 
CMF A #’°9 
BHI CLASS2 
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FOST ZONE? 
FOUND? 

BUMP THE POINTER 
SAVE IT 

SAVE ACC. 

INC NUMBER 


CHECK ZONE2 
RESTORE ACC 


CLEAR FLAG 


RETURN 

SAVE IT 

SET FLAG 

FOINT TO STRING 
BUMP THE POINTER 
ENDL OF STRING? 
RESTORE FOINTER 
BUMF NUMBER 
CHECK ZONE 

GET COUNT 


SAVE 
FIX COL 


DEC COUNT 


RETURN 


SAVE FOINTER 
GET CHARACTER 


CHECK IF NUMBER 


TSC 6800 


LOCN 
0748 
0749 
074A 
074C 
074E 
0750 
0752 
0754 


0755 
0757 
0759 
O75B 
0750 
O75F 
0761 
0763 
0764 
0765 
0767 
07469 
076C 
O746F 
0770 
0772 
0774 
0776 
0778 
077A 
077C 
0770 
O77F 
0781 
0783 
0784 
0785 
0787 
0789 
078B 
O7BE 
078F 
0791 
0793 
0795 
0798 
O79A 
O79B 
0790 
O79F 
O7A1 


Bl 
sc 
39 
81 
23 
81 
22 
Cé 
39 


TEXT EDITING SYSTEM 


B2 


40 
06 
5A 
02 
02 


4c 
E2 
O1 
07 
2E 
17 
44 


OF 
04 
00 
00 


B3 


91 
90 


89 


INC B 
RTS 
CMF A 
BLS 
CMF A 
“BHI 
LIA B 
RTS 


#$40 
CLASS4 
#/Z 
CLASS4 


#2 


CLASS2 


CLASS4 


& CONVERT ASCII TO BCD 


BCDCON BSR CLRNUM 
BCDCO1 BSR CLASS 

-CMP B #1 

BEQ BCDCO2 

CMF A #’, 

BEQ BCDCOS 
BCDRC1S STxX BUF PNT 

RTS 
BCcDCO2 INX 

AND A #$0F 

LDA RB #4 
BCDCO4 ASL NUMBER+1 

ROL NUMBER 

DEC B 

BNE BCDCO4 

ADT A NUMBER+1 

STA A NUMBER+1 

BRA BCDCO1 
BCnCcOS LDA B #2 

STA B DECCNT 
BCDICOé INX 

BSR CLASS 

CMF BR #1 

BEQ BCUCSS 

CLR A 

DEX 

BRA BCUC67 
BCDCé6éS ANT A #$0F 
BCDCé67 LOA BR #4 
BCDCO7 ASL NUMBER+2 

DEC B 

BNE BCDICO7 

ADD A NUMBER+2 

STA A NUMBER+2 

DEC DECCNT 

BNE BCDCO6 
BCDCOsS INX 

BSR CLASS 

CMF BE #1 

REQ BCDCOS 

BRA BCIIC1S 
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SHOW NUMBER 
RETURN 
CHECK IF LETTER 


SHOW LETTER 
RETURN 


CLEAR NUMBER 
CLASSIFY CHAR. 
IS IT A NUMBER? 
IS ITA '.'? 
SAVE POINTER 
RETURN 

BUMP THE POINTER 


MASK ASCII 
SET COUNTER 


SHIFT EVERYTHING LEFT 
DEC THE COUNTER 


ADL IN NUMBER 


SET COUNTER 

BUMF THE POINTER 
CLASSIFY CHAR. 
IS IT NUMBER? 
NEC THE POINTER 


MASK ASCII 
SET COUNTER 


DEC COUNTER 


BUMF THE POINTER 
CLASSIFY CHAR, 
IS IT NUMBER? 


TSC 6800 


LOCN 


O7A3 


O7A4 | 


O7AS6 
07A8 
O7AA 


O7AB 
O7AL 
O7AF 
O7B1 
0783 
O7BS 
07B8 
0789 
O7BA 
O7BC 
O7BE 
07C0 
07C2 
07C4 
07C4 
07C8 
O7CA 
07CC 
O7CE 
O7D1 
O723 
O7D6 
0708 
O07B9 
O7DA 
O7 DL 
O7 LF 
O7E1 
O7E3 
O7E4 


O7ES 
O7E7 
O7E9 
O7EA 
O7EC 
O7EE 
O7EF 


B1 


36 
86 
08 
Al 
246 
32 


39 


TEXT EDITING SYSTEM 


B2 


90 


92 


90 
91 
97 
99 
0S 
00 


oD 


00 
FB 


BS 


73 


x CLEAR NUMBER ROUTINE 


CLRNUM CLR A 
STA A NUMBER 
STA A NUMBER+1 
STA A NUMBERt2 
RTS 
* FIND NUMBERED LINE 
FNINUM LIA B NUMBER 
LDA A NUMBER+4 
LEX FILBEG 
FNDNU1 CPX FILEND! 
BNE FNDNU4 
INC OVRENL! 
FNDNU2 INC B 
RTS 
FNDNU4 CMF B OrX 
BHI FNIINUS 
BNE FNDINU2 
CMF A 19X 
BHI FNDNUS 
BNE FNIINU2 
LIA BH NUMBER+2 
CMP EB 29X 
BHI = FNDNUS 
BNE. FNIINU2 
TST — SNGLIN 
BNE FNINAS 
TST CHKFLG 
BNE FNIINU2 
FNINAES CLR RB 
RTS 
FNIINUS TST CHKFLG 
BNE FNIINAS 
BSR FNIICRT 
LIA KH NUMBER 
INX 
BRA FNDNU1 
* FIND) THE NEXT CARRIAGE 
FNDCRT FSH A 
LDA A #CRGRET 
FNDCR2 INX 
CMP A OrXx 
BNE FNICR2 
PUL A 
RTS 


* MOVE BACK ONE LINE 
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CLEAR ACC. 
CLEAR ALL OUT 


RETURN 


GET DIGIT 


SET POINTER TO BEGIN 
END OF FILE? 


SET ERROR FLAG 
RETURN 
COMPARE DIGIT 


COMF NEXT DIGIT 


NEXT DIGIT 
CHECK DIGIT 


RETURN 


FIND C.R. 
RESTORE NUM 

BUMP THE POINTER 
REFEAT 


RETURN 


SAVE ACC, 


BUMF THE FOINTER 
CHECK FOR C.R. 


RESTORE ACC. 
RETURN 
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LOCN 


O7FO 
O7F2 
O7F4 
O7FS 
O7F7 
O7F9 
O7FB 
O7FD 
O7FF 
08ol 
0802 
0804 
0805 
0807 
0808 
0809 
O80B 
O80E 


O80F 
0811 
0813 
0815 
0817 
0819 
O81B 
osic 
OB1E 
0820 


0821 
0824 
0826 
0829 


OB82A 
082C 
0820 
O82F 
0830 
0832 
0833 
0835 
0836 


Bl 


9C 
27 
C4 
0? 
9C 
27 
A6 
81 
26 
SA 
2a 
08 
Cé 
39 
on 
27 
7C 
39 


9C 
26 
C4 
07 
20 
Bn 
08 
9C 
27 


39 


TEXT EDITING SYSTEM 


PAGE 22 


B2 BS 
97 BAKONE CPX FILBEG 
17 BEQ BAKONG 
O1 LDA BR #1 SET COUNTER 
BAKON2 DEX TEC THE POINTER 
97 CPX FILBEG BEGINNING? 
on BEQ BAKONS 
00 LDA A OrXx GET A CHAR. 
on CMP A #CRGRET IS IT C.R.? 
FS BNE BAKON2 
DEC & DEC THE COUNTER 
F2 BPL BAKON2 
INX BUMP THE POINTER 
O1 LDA BR #1 
BAKON4 RTS RETURN 
BAKONS TST B 
FC BEQ BAKON4 
00 72 BAKON6 INC OVRBEG SET ERROR FLAG 
RTS RETURN 
x MOVE UP ONE LINE 
99 UPONE CPX FILEND END OF FILE? 
06 BNE UFONE2 | 
o1 UPONE1 LUA B #1 SET ERROR FLAG 
73 STA B OVREND 
D7 BRA BAKONE 
CB UPONE2 BSR FNDCRT FIND NEXT C.R. 
INX BUMP THE POINTER 
99 CPX FILEND END? 
F3 BEQ UPONE1 
RTS RETURN 
x TEST FOR OVER END LIMITS 
00 72 TSTOVR TST OVRREG BEGINNING? 
03 BNE TSTOV2 
00 73 TST OVRENID END? 
TSTOV2 RTS RETURN 
* DECREMENT NUMBER BY ONE 
99 DECNUM LDA A #$99 
TAB SET UF $9999 
91 ADD A NUMBER+1 ADD IN 
DAA ADJUST IT 
91 STA A NUMBER+1 SAVE 
TRA 
90 ADC A NUMBER 
TIAA 
90 STA A NUMBER 
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LOCN 


0838 
O83A 
083C 
O83E 


O83F 
0841 
0B44 
0846 
0847 
0849 
084A 
O84B 
084C 
084u 
O84F 
0851 
0853 
0835 
0857 
0859 
O8SA 
ossc 
O8S5E 
O8SF 
08460 
0861 
0862 
0864 
0867 
0869 
O86B 
O8ér 
O86F 
0872 
0874 
0876 


0877 
0879 
0878 
O87E 
0880 
0883 
0885 
0887 


B1 


94 
24 


39 


8p 
DE 
BD 
DE 
7C 
OF 
9C 


Q 


ae 


TEXT EDITING SYSTEM 


4A 
oA 


8D 


00 
on 
0? 
03 


03 


FO 
8E 


58 
on 
4A 
6B 
05 
40 
07 
48 
4A 


2F 
44 
04 
4A 
00 
48 
93 
03 


B3 


Eé 


43 


FO 


E? 


BA 


* TEST NUMBER FOR ZERO 
“TSTNUM LDA A NUMBER 
BNE TSTNU2 
LDA A NUMBER+1 
TSTNU2 RTS 
* VERIFY LINE ROUTINE 
VERLIN STX NEWFOS 
JSR FNOCRT 
STX SPCPT2 
CLR A 
STA A CHRCNT 
VERLI1 [EX 
DEX 
DEX 
VERLi12 DEX 
LIA RB Orx 
CMF KR #CRGRET 
REQ VERL15 
LIA B 3X 
CMF B #’ 
BNE VERLIS 
INC A 
BRA . VERL12 
VERL15 STA A CHRCNTt1 
INX 
INX 
INX 
INX 
STX SFCFT1 
JSR DELCHR 
LOX NEWFOS 
LDA A VERFLG 
BEQ VERLI2 
BSR OQUTLIN 
JSR BAKONE 
VERLI2 STX CURPOS 
STX NEWFOS 
RTS 
x FRINT ROUTINE 
FRINT BSR TSTEMF 
LEX BUFFNT 
JSR FINDT 
PRINTO LDX NEWPOS 
INC FRNFLG 
STX CURFOS 
PRINT1 CFX TRGLIN 
BNE PRIN12 
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CHECK IF ZERO 


RETURN 


SAVE POINTER 


SAVE POSITION 


DEC POINTER 


REC THE POINTER 
CHECK CHAR 
Is IT C-R-? 


CHECK 
IS IT A SFACE? 


SAVE COUNT 


BUMF POINTER 


DELETE SFACES 
CHECK FLAG 


OUTPUT LINE 
BACKUP ONE LINE 
SAVE POINTER 


RETURN 


SET POINTER 
FIND) TARGET 
SET FOINTER 
SET FLAG 
SAVE IT 
TARGET LINE? 
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LOCN 
0889? 
osec 
O8B8E 
0890 
0892 
0894 
0896 
0897 
0898 
O89B 
089D 
O8A0 
O8A2 
OBAS 


O8A8 
OBAA 
O8aAC 
OBAE 


OSAF 
O8B2 
O8B4 
O8B4 
O8B8 
O8B9 
O8BA 
O8BC 
O8BE 
O8BF 
08Co 
08C2 
0sc4 
08Cé 
osc? 
O8CR 
oscc 


oscD 
O8CF 
osDn2 
osDn3 


DE 
9C 
27 
39 


BD 


26 
Br 
08 
08 
20 
8p 
09 


AG 
81 
27 
BD 
20 
08 
39 


B46 
BI 


39 


TEXT EDITING SYSTEM 


B2 B3 
00 8A CLR FRNFLG 
2i PRINI2 BSR OUTLIN 
BA LDA A PRNFLG 
OB BEQ PRINTS 
8c LOA A DRCTN 
EF BEQ PRINT1 
DEX 
DEX 
07 FO JSR BAKONE 
E8 BRA PRINT1 
07 FO PRINTS JSR BAKONE 
48 STX CURPOS 
09 BS PRINT6 9 JSR TSTMSL 
03 8A JMP EDIT 
x TEST IF FILE EMPTY 
97 TSTEMP LIX FILBEG 
99 CFXxX FILEND 
F4 BEQ PRINTS 
RTS 
* OUTFUT ONE LINE 
04 4E OUTLIN JSR FCRLF 
6A LDA A NUMFLG 
06 BNE OUTL15 
15 BSR OUTSPC 
INX 
INX 
03 BRA OUTLI2 
16 OUTL15 ESR OUTBCD 
DEX 
OUTLI2 INX 
00 LDA A OX 
on CMP A #CRGRET 
05 BEQ OUTLI4 
02 09 JSR OUTCH 
F4 BRA OUTLI2 
OUTLI4 IWNX 
RTS 
* OUTPUT A SFACE 
20 OUTSPFC LDA A #’ 
02 09 JSR OUTCH 
CLC 
RTS 
x OQUTFUT A BCD) NUMBER 
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CLEAR FLAG 

CHECK FLAG 

CHECK DIRECTION 
DEC POINTER TWICE 
MOVE BACK ONE 


MOVE BACK ONE 
SAVE POINTER 


RETURN 


OUTFUT SPACE 
BUMF THE FOINTER 


OUTPUT LINE NO. 
GET A CHAR. 

IS IT C.R.? 
OUTPUT IT 
REPEAT 


BUMP THE POINTER 
RETURN 


LOAD UP SPACE 
OUTPUT IT 


RETURN 


TSC 6800 


LOCN 
osna4 
oBldé 
O8sDs 
O8DA 
osnc 
OsDn 
OSnF 
O8E1 
O8E3 
O8ES 
OBEB 
OBE? 
O8EB 
O8ED 
OB8EF 
O8F 1 
O8F3 
O8F5 
O8F7 
O8F9? 
O8FB 
OBFC 
OSFE 
0900 
0701 
0902 
0904 
0906 
0908 
O90B 
o90rn 
0910 
0911 


O913 
0914 
09715 
0914 
0917 
O919 
O91B 


o9ir 
O91F 
0921 
0923 
0926 
0928 
0929 


Bl 
96 


44 


44, 


44 
44 
84 
8k 
20 


an 
27 
2k 
7F 
20 
43 
97 


TEXT EDITING SYSTEM 


07 
[t7 
30 
02 
2E 
02 


CA 


OF 
30 
EB 


18 
OA 
00 
08 


6A 


13 


09 


09? 


6A 


OUTECD LDA A NUMFLG 
REQ OQUTB7S 
RSR OUTSFC 
LDA K #2 
CLC 
OUTBC2 LIA A Orx 
RIT A #$FO 
BCS OUTEC3 
BEQ OUTB3S5 
OUTBC3 JSR OUTHL 
SEC 
ERA OUTEBC4 
DUTB3S BSR OUTSFC 
OUTEC4 LIA A Ox 
, BIT KB #$FE 
REQ OUTEC4 
BIT A #$0F 
BCS OUTBCS 
BEQ OUTE465 
OUTBC4é ESR OUTHR 
SEC 
BRA OUTBC7 
OUTH6S HSR OUTSFC 
OUTEC7 INX 
PEC B 
BEQ OUTEC8 
BFL OUTEC2 
OUTH7S LDA A #’= 
OUTE78 JMP OUTCH 
OUTBCS8 LIA A #’, 
JSR OUTCH 
SEC 
BRA OUTBC2 


K OUTFUT DIGITS ROUTINE 


LSR A 
LSR A 
LSR A 
A 
A 


OUTHL 


LSR 
ANI 
Ann 
HRA 


#$0F 
A #430 
OUTR78 


OUTHR 


* SET NUMBERS ON OR OFF 


NUMSET BSR ONOFF 
BEQ NUMSE2 
BMI NUMSE4 
CLR NUMFLG 
BRA NUMSES 
NUMSE2- COM A 
STA A NUMFLG 


PAGE 25 


CHECK FLAG 


OUTPUT A SPACE 
SET COUNTER 


GET CHAR. 
MASK 


OQUTFUT DIGIT 
SET FLAG 


GET DIGIT 
CHECK IF DONE 


MASK 


OQUTFUT DIGIT 


RUMP THE FOINTER 
DEC THE COUNTER 


OUTPUT A "=" 
OUTPUT A ‘.* 


GO FINISH 


SHIFT LEFT FOUR TIMES 


MASK 
MAKE ASCII 


GET ON OFF 


CLEAR FLAG 


COM. FLAG 
SAVE IN FLAG 


TSC 6800 


LOCN 
092B 
092D 
0930 
0932 
0934 


0937 
0939 
093C 
O9SE 
0940 
0943 


0946 
0947 
0948 
0949 
O94B 
094C 
094D 
09 4E 
O94F 
0951 
0952 
0953 
0955 


0956 
0957 
0958 
095A 
O95B 
095D 
O9SE 
0960 
0962 


0943 
09465 
0967 
0969 
096C 
O96E 


Bl 
20 
73 
DE 
DF 
7E 


DE 
BD 
DF 
DF 
CE 
7E 


en 
27 
25 
7F 
20 


43 


TEXT EDITING SYSTEM 


58 


SB 


1 
44 


44 
FF 


D2 


OA 
00 
08 


46 
00 


6B 


TOGGLE 


BRA = NUMSE6 
NUMSE4 COM = NUMFLG 
NUMSE6 LDX = NEWPOS 

STX  CURFOS 

JMP = PRINTS— 
* CHECK FOR ON OR OFF 
ONOFF LDX = BUFPNT 

JSR SKIPSP 

STX  BUFFNT 

STX TEMP 

LDX § #ONOFTB 

JMFo «EDITS 
* TABLE FOR ON OFF 
ONOFTB FCC ON’ 

FCR 0 

FDR ON 

FCC ‘OFF’ 

FCR 0 

FDR OFF 

FCR CRGRET 

FCR 0 

FDR TOGGLE 

FCR 0 


* ON OFF ROUTINES 


CLR A 
RTS 

LDA A #1 
RTS 
LDX 
DEX 
STX 
LOA A 
RTS 


ON 
OFF 
BUF PNT 


BUFPNT 
#$FF 


* SET VERIFY FLAG 


VERSET BSR ONOFF 
BEQ VERSE2 
EMI VERSE4 
CLR VERFLG 
BRA VERSES 
VERSE2 COM A 
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COM FLAG 
SET POINTER 


SET POINTER 
SKIP SPACES 
SAVE POINTER 


POINT TO TABLE 


RETURN 
SET FLAG 
RETURN 


FIX 
SET FLAG 
RETURN 


CHECK ON OFF 


CLEAR FLAG 


TSC 6800 


LOCN 
O96F 
0971 
0973 
0976 


0978 
O97A 
097D 
0980 


0982 
0983 
0984 
0985 
0986 
0987 
0988 


0989 
0985 


O98E 
0990 
0993 
0995 
0998 
O99A 


0990 
O99F 
O9A2 


O9AA4 
O9ASG 
OPAP 
OVAB 
O9AD 
O9AF 
O9B1 
O9B2 


=F 
7E 


8D 
20 


DE 
BD 
61 
27 


91 


39 
7E 


TEXT EDITING SYSTEM 


19 
EO 


05 
08 
F4 


44 
04 
on 
04 
BS 
o1 


04 


B3 


6B 


Do 


A8 


FO 


A8 


71 


STA A VERFLG 

BRA VERSES 
VERSE4 COM VERFLG COM. FLAG 
VERSES ERA NUMSES 


* CURSOR CONTROL COMMAND °X* 


XCNTRL ESR TFORCR 


LIX #CNRSTR POINT TO STRING 


JSR PDRATAL OUTPUT IT 
BRA NUMSES 


CNRSTR FCE O0r070%090%0 


FCE 4 THIS 4 MUST REMAIN 


x EXIT ROUTINE 
EXIT RSR TFORCR 

JMP MIKBUG EXIT 
x SET FOINTER TO BOTTOM 
ROTTOM BSR TFORCR 


BOTTO1 JSR TSTEMP 
LIX FILEND! 


JSR BAKONE MOVE BACK ONE 


BOTTO2 STX CURPOS SAVE-POINTER 
JMF PRINTS 


x SET FOINTER TO TOF 


TOP BSR TFORCR 
JSR TSTEMP 
BRA ROTTO2 


x TEST OR C.R, 


TFORCR LDX BUFFNT SET POINTER 
JSR SKIPSP 
CMF A #CRGRET IS IT C.Re? 
BEQ TFORC2 


CMF A EOL 
BNE TFORCS 
TFORC2 RTS RETURN 


TFORCS JMF SYNERR 
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LOCN 


O9BS 
O9B7 
O9B9 
O9BB 
O9BD 
O9BF 
09C1 
09C3 
097C4 
09C6 
09C7 
09C9 
O9CB 


o9CC 


O9CF 
O9n2 
oons 
O9n7 
O9ng 
o9nc 
O9DE 
O9EO 
O9E2 
O9E4 
O9E4G 
O9E8 
O9EB 
O9EE 
O9FO 
O9F3 
O9FS 
O9F7 
O9FA 
O9FC 
O9FF 
OA02 
OA0S 
0A08 
OAOA 
OAOC 
OAOE 
OA10 
OA1L2 


B1 


7C 


TEXT EDITING SYSTEM . PAGE 28 


B2 B3 

x TEST FOR MULTIPLE STATEMENTS PER LINE 
44 TSTMSL LIX BUF PNT GET POINTER 
oD LIA A #CRGRET GET C.R. 
BS LOA B EOL GET EOL CHAR. 
00 TSTMS2 CMF A O»xX CHECK CHARACTER 
oc BEQ TSTMSS 
00 CMP B O+X 
03 REQ TSTMS4 

INX BUMF POINTER ONE 

FS BRA TSTMS2 REFEAT 

TSTMS4 INX 
44 STX BUFPNT SAVE BUFFER POINT 
6C STA A MSLFLG SET FLAG 

TSTMSS RTS RETURN 


* PROCCESS THE NEXT COMMAND 


00 76 NEXT INC NXTFLG 


x FINI COMMAND 


08 AS CFIND JSR TSTEMP 

00 75 INC LINFLG SET FLAG 

71 BSR OCCURR CHECK FOR OCCURRENCE 
93 LIX TRGLIN SET FOINTER 

08 21 JSR TSTOVR CHECK LIMITS 

2A BER CFINI2 

76 LDA BR NXTFLG CHECK FLAG 

43 BNE CFINDS 

04 BRA CFINI2 

77 CFINIA LOA A ALLFLG CHECK IF ALL 

40 BNE CFINDSG 

OA 31 CFINI2 LIX #CFNTST POINT TO STRING 
04 83 JSR PSTRNG OUTPUT IT 

SE LIX ZONE1 CHECK ZONES 

00 O1 CPX #$0001 

07 BNE CFIN1I3 

60 LIX ZONE2 CHECK ZONE 2 

O1 36 CFX #$0136 

06 BEQ CFIN14 

OA 3B CFINIS LIX #ZOKSTR FOINT TO STRING 
04 85 JSR FOATA1 OUTPUT IT 

00 6C CFINI4 CLR MSLFLG 

03 8A CFINIS JMP EDIT RETURN 

93 CFIND2 LDX TRGLIN FOINT TO TARGET 
4A CFX NEWPOS SAME ONE? 

1A BEQ CFINDS 

4A STX NEWFOS SAVE IT 

78 CFINGS LOA BRB OCRFLG CHECK FLAG 

11 BEQ CFINES 
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LOCN 
0OA14 
OA1LS 
0A18 
OA1B 
OAIE 
OA2Z1 
OA23 
OA25 
0A28 
OA2B 
OA2D 
OA2F 


OAS1 
OAS2 
0ASS 
0A34 
0A35 
0A34 
0A37 
OAI8 
OAS? 
OAZA 


OA3B 
OASC 
OAST 
OASE 
OASF 
0OA40 
OA4l 
OA42 
0A4S 
OA44 
0A4S 
OA4S 
OA47 


0A4B 
OA4A 
0A4C 
OA4F 
OAS2 
OASS 
OAS? 
OASA 
OASC 
OASE 
OAGO 
0AG62 
0A65 


AE 


54 
20 
46 
AF 
55 


4E 
04 


2E 
2 

SA 
4F 
4E 


45 


20 
4F 
4k 


04 


Te 
DF 
7F 
7F 
BD 
DE 


C1 
27 
81 
26 
7C 
20 


TEXT EDITING SYSTEM 
B2 B3 
76 LDA 
03 BNE 
08 SF JSR 
OA B83 CFIND4 JSR 
08 21 JSR 
ES BEQ 
06 BRA 
08 3F CFINEIS JSR 
08 A2 CFIND&é' JMP 
76 CFIND9 LIA 
FS BNE 
B3 BRA 
CFNTST FCC 
FCR 
ZOKSTR FCC 
FCH 
x CHECK FOR 
44 OCCURR LIX 
46 STX 
00 77 CLR 
00 78 CLR 
04 E9 JSR 
44 LIX 
07 38 JSR 
Ol CMF 
09 BEQ 
2A CMF 
17 BNE 
00 77 INC 
Or BRA 


B NXTFLG 
CFINI4 
VERLIN 
NXTOCR 
TSTOVR 
CFIND2 
CFIND9 
VERLIN 
PRINTS 

BR NXTFLG 
CFINES 
CFINDI 
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CHECK FLAG 
VERIFY LINE 
CHECK NEXT OCCUR. 
CHECK LIMITS 
VERIFY LINE 


CHECK FLAG 


‘NOT FOUND’ 


4 


“eoeZONES OK?’ 


OCCURRENCE 


BUFF NT 
BUFSAV 
ALLFLG 
OCRFLG 
FINET 
BUFF NT 
SKFCLS 
BRB 1 
OCCURS 
A €’x 
OCCURS 
ALLFLG 
OCCUR4 


SET POINTER 
SAVE IT 


FIND TARGET 
RESTORE FOINTER 
IS IT NUMBER? 
IS IT A "x*? 


SET FOR ALL OCCUR. 


TSC 6800 


LOCN 
OA67 
OA6A 
OA6D 
OA6F 
0A72 
0A74 
OA76 
0A79 


OA7A 
OA7C 
OA7E 
OA8O 
0OA82 


0A83 
0ABS 
0A87 
OAB? 
OABB 
OASD 
OABF 
OA92 
0AP4 
0AI6 
0Aag8 
OAIA 
OAIC 
OASF 
OAAZ 
OAAA4 


OAAS 
OAAB 
OAAA 
OAAL 
OABO 
OABS 
OABS 
OAB7 
OAB? 
OABB 
OABE 
OAC 
oac3 
OACS 


Bl 
BD 
BD 
27 
BD 
27 
en 
7C 
39 


96 
97 
96 


39 


Bn 
DE 
7F 
7C 
7C 
96 
26 
DE 
OF 
BD 


96 
97 
7E 


TEXT EDITING SYSTEM PAGE 30 


90 
6E 
91 
6F 


77 
OF 
6E 
90 
6F 
91 
08 


E4 


85 


46 
04 


F2 


B3 
55 
38 


2A 


78 


2A 


E? 
78 


As 
70 


7E 


98 
81 


BE 


OCCURS JSR BCDCON GET NUMBER 

JSR TSTNUM ZERO? 

BEQ OCCURS 

JSR DECNUM DEC NUMBER 

REQ OCCURS 

BSR SAVOCR SAVE OCCURRENCE 
OCCUR4 INC OCRFLG SET FLAG 
OCCURS RTS RETURN 


* SAVE PRESENT OCCURRENCE COUNT 


SAVOCR LIA A NUMBER GET NUMBER 
STA A OCRCNT SAVE IT 
LDA & NUMBER+1 
STA A OCRCNT+1 
RTS RETURN 


*k FROCCESS NEXT OCCURRENCE 


NXTOCR LDA A ALLFLG CHECK FOR ALL 
BNE NXTOC1 


NXTOCO LDA A OCRCNT GET COUNT 
STA A NUMBER FUT IN NUMBER 
LDA A OCRCNT+1 
STA A NUMBER+1 


JSR DECNUM DEC THE COUNT 

BEQ NXTOC2 

BSR SAVOCR SAVE COUNT 
NXTOC1 LDA A CHGFLG 

BNE NXTOC3 

LOX BUF SAV RESTORE POINTER 

JMP FINDT FIND TARGET AND RET 
NXTOC2 CLR OCRFLG CLEAR FLAG 

BRA NXTOC1 
NXTOC3 RTS RETURN 


x EQUALS COMMANT 


EQUALS JSR TSTEMP 
LIX BUFFNT SET FOINTER 
CLR BMPFLG 
INC SNGLIN 
INC EQUFLG 
LDA A NOCURL CURRENT LINE? 
BNE INSER1 
LDX NEWPOS 
STX TRGLIN FIX TARGET 
JSR GETNUM GET NUMBER 
INC REFFLG SET FLAG 
LDA A CHRCNT+1 
STA A TMPCHR 
JMF NELETO 
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LOCN 


OACB 
OACA 
OACD 
OACF 
OAD1 
OADS 
OADS 
OAD? 
OAD? 
OADC 
OADE 
OAEO 
OAE2 
OAES 
OAE4 
OAES 
OAES 
OAEA 
OAEC 
OAEE 
OAFO 
OAF 2 
OAFA 
OAFS 
OAFS 
OAFB 
OAFD 
OAFF 
OBO1 
OBO3 
OBO04 
OBO0S 
OB08 
OROA 
OBOD 
OBOF 
OB11 
OB13 
0814 
OB16 
0OB18 
OB1A 


OBIT 
OBIF 
OB21 
OB23 
OB25 
OB27 


B1 


TEXT EDITING SYSTEM 
B2 B3 
* INSERT ROU 
44 INSERT LDIX 
oo 7D CLR 
00 LDA 
on CMP 
17 BEQ 
00 84 INC 
INX 
44 INSER1 STX 
00 BB LIX 
8E , LDA 
44 INSER2 CPX 
04 BEQ 
DEC 
INX 
F8 BRA 
03 INSERS ADI 
8E STA 
4A INSER4 LDX 
48 STX 
7E LIA 
06 BEQ 
72 LOA 
14 BEQ 
25 BRA 
06 98 INSE42 JSR 
7F LDA 
OR BEQ 
99 , CPX 
07 BEQ 
CLR 
90 STA 
91 STA 
13 BRA 
08 OF INSE43 JSR 
02 , LIA 
73 LIA 
OA BEQ 
INSE4S CLR 
99 LIX 
97 CPX 
03 BNE 
07 AZ JSR 
* CALCULATE 
58 INSERS STX 
7E LDA 
2C BNE 
73 LIA 
0s BEQ | 
00 92 CLR 
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TINE 


BUF PNT SET POINTER 
BMPFLG CLEAR FLAG 
A Ox GET CHAR. 
A #CRGRET 
INSER4 
SNGLIN SET FLAG 
BUMP THE POINTER 
BUFFNT SAVE IT 
#BUFFER 
A CHRCNT+1 GET COUNT 
BUF PNT CHECK POINT 


INSERS 
A DEC THE COUNTER 
BUMP THE POINTER 
INSER2 
A #3 FIX COUNT 
A CHRCNT+1 
NEWPOS SET POINTER 
CURFOS SAVE FOINTER 
A EQUFLG 
INSE42 
A OVRBEG CHECK LIMIT 
INSE43 
INSERS 
GETNUM 
A INLMFL CHECK FLAG 
INSE43 
FILEND EMPTY? 
INSE43 
B CLEAR ACC. 
R NUMBER SAVE IN NUMBER 
BH NUMBER+1 
INSERS 
UF-ONE UF ONE LINE 
B 29x GET DIGIT 
A OVREND LIMIT? 
INSERS 
B 
FILEND 
FILBEG 
INSERS 


-CLRNUM CLEAR OUT NUMBER 
LINE NUMBER INCREMENT 


SPCFT1 SAVE POINTER 
A EQUFLG 

INSE6O 
A OVREND LIMIT? 
INSES1 
NUMBER+2 
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Bl 
20 
96 
26 
96 
07 
9A 
27 
96 
27 
7F 
84 
97 
20 
7A 
BD 
96 


27 


LOCN 
OB2A 
OB2C 
OB2E 
OB30 
OB32 
OB34 
OB36 
OB38 
OB3A 
OB3C 
OB3F 
OB41 
OB43 
OB45 
OB48 
OB4E 
OB4D 


OB4F 
OBS1 
ORS3 
OBS6 
OBS? 
OBSC 
OBSF 
OB62 
OB64 
OB66 
OBé68 
OR6B 
OB6E 
0B70 
OB72 
0B74 
OB76 
OB79 
OB7B 
OB7D 
OB80 
ORB2 AG 
OR84 
ORBS 26 
O88 
OBBA 
OB8C 
OBBE 


OB8F 
OB91 
OB9S 
OB96 


TEXT EDITING SYSTEM 


B2 B3 
1c BRA 
7D INSES1 LDA 
18 BNE 
92 LDA 
82 STA 
82 ORA 
oD BEQ 
7F LBA 
03 BEQ 
00 92 CLR 
O1 INSES2 LDA 
7C STA 
03 BRA 
00 7C =INSESS DEC 
06 6A INSERS JSR 
84 LDA 
04 BEQ 
x ENTER 
44 INSE60 LDX 
2p BRA 
00 7F INSE61 CLR 
O04 4E JSR 
00 90 LDX 
08 D4 JSR 
oo sD CLR 
03 LDA 
8E STA 
70 STA 
OO BB LIX 
04 99 INSES2 JSR 
ES BEQ 
on CMP 
07 BEQ 
00 STA 
04 BB JSR 
FO BRA 
00 INSER7Z STA 
OO BRB LIX 
44 INSE71 STX 
00 LDA 
B4 CMF 
40 BNE 
BE LDA 
03 SUE 
SE STA 
INX 
x CHECK 
40 INS710 STX 
4A LIX 
08 OF JSR 
00 73 TST 


D> 


> DKDeD 


D>D 


>D>D 


>D>D 


INSERSG 
BMPFLG 
INSERS 
NUMBER+2 
TMPCHR 
TMPCHR 
INSESS 
INLMFL 
INSES2 
NUMBER+2 
#1 
INCAMT 
INSERS 
INCAMT 
BMPNUM 
SNGLIN 
INSE61 


BUFPNT 
INSE71 
INLMFL 
PCRLF 
#NUMBER 
OUTBCDR 
CHRCNT 
#3 
CHRCNT+4+1 
BMPFLG 
#BUFFER 
INCHAR 
INSES1 
#CRGRET 
INSER7 
OrXx 
BUFLIM 
INSE62 
O»X 
#BUFFER 
BUFFNT 
OX 

LINO 
INSE72 
CHRCNT+1 
#3 
CHRCNT+1 


TEMF 
NEWFOS 
UPONE 
OVREND 


PAGE 32 


GET NUMBER 


CHECK FLAG 


SET AMOUNT 


BUMP NUMBER 
CHECK IF SINGLE IN 


BUFFERED INPUT MODE 


FOINT TO NUMBER 
OUTFUT IT 


SET COUNTER 
SET FLAG 
SET POINTER 
GET A CHARACTER 
IS IT C.R.? 
CHECK LIMIT 
REPEAT 

SET POINTER 
SAVE IT 

GET CHAR. 
ESCAFE? 

FIX COUNT 


BUMF THE POINTER 


IF RENUMBERING NECESSARY 


SAVE POINTER 


UP ONE LINE 
LIMIT? 
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LOCN 
OB99 
OB9B 
OBIE 
OBAO 
OBA2 
OBAS 
OBA7 
OBAB 
OBAA 
OBAC 
OBAF 
OBB2 
ORBS 
OBB7 
OBBA 
OBBC 
OBBE 
ORCO 
OBC2 
OBCS 


ORCS 
OBCA 
ORCC 
OBCE 
OBDI 
OBn2 
OBDS 
OBLI4 
OBS 
OnDS 
OBDA 
OBDE 
OBDI 
OBIIF 
ORE1 
OBE2 
OBE4 
OBES 
ORES 
OBER 
ORED 
OBEF 


ORF2 
OBF3 
OBF4 
ORFS 
ORFS 
ORF? 
OBFS 
OBF9 


B1 
26 
7C 
Lé 
96 
BD 
26 
4F 
97 


TEXT EDITING SYSTEM 


BO 
F2 
83 


84 


6C 


8B 


BNE INS711 
INC CHKFLG 
LUA B NUMBER 
LDA A NUMBER+1 
JSR FNDNU4 
BNE INS711 
CLR A 
STA A INCAMT 
STA A NUMBERt2 
JSR RENUM2 
LIX #RENSTR 
JSR PSTRNG 
_ING711°~ =LDX TEMF 
TST SNGLIN 
BEQ INS712 
LIX NEWPOS 
STX CURFOS 
BRA INS713 
INS712 INC MSLFLG 
INS713  JMP | EDIT 


x ACTUAL LINE INSERT 


INSE72 HSR MAKSPC 
LIX TEMP 
STX NEWFOS 
JSR FUTNUM 
INX 
INX 
INX 
STX TEMP 
INSE7S LDX BUF PNT 
LDA A Orx 
INX 
STX BUFPNT 
LIX TEMP 
STA A Ox 
INX 
STX TEMP 
CMP A #CRGRET 
BNE INSE75 
JSR EXFLIN 
LOA A SNGLIN 
BNE INS710 
JMP INSER4 
RENSTR FCC 
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SET FLAG 
GET NUMBER 


CHECK NUMBER 


SET INC AMOUNT 


RENUMBER FILE 
FOINT TO STRING 
OUTPUT IT 
RESTORE POINTER 


FIX POINTER 


SET FLAG 


MAKE SOME SPACE 
RESTORE POINTER 


PUT NUMBER 
RUMP 3 TIMES 


SAVE POINTER 


GET CHAR. 
RUMP THE POINTER 
SAVE IT 


FUT CHAR, 
BUMP 
SAVE 


REFEAT 
EXPAND TABS 


‘SOME LINES RENUMBERED’ 
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LOCN B1 B2 B3 
OBFA 45 

OBFB 53 

OBFC 20 

OBFD S2 

OBFE 45 

OBFF 4E 

0CO0O 55 

Ooco1 4D 

0CO2 42 

0CO3 45 

0004 S2 

0c0oS 45 

0COd 44 

0CO7 04 FCE 4 


x MAKE ROOM FOR INSERT 


0CO8 7F 00 89 MAKSPC CLR DECCNT CLEAR COUNT 


OCOB DE 58 LDX SPCPT1i SET POINTER 
OCOD DF 40 STX TEMP SAVE 

OCOF 9C 99 CPX FILEND END OF FILE? 
0C11 24 03 BNE MAKSP 1 

0C13 7C 00 89 INC DECCNT 

0C16 DE 99 MAKSP1 LDX FILEND SET POINTER 
0C18 DF S58 STX SPCPT1 SAVE 

OCiA D6 SD LDA BRB CHRCNT 

OCiC 94 BE LDA A CHRCNT+1 

OC1IE 26 03 BNE MAKS21 

0C20 SD MAKS18 TST B 

0C21 27 37 MAKSP2 BEQ MAKSP4 

0C23 BC 02 12 MAKS21 CPX MEMEND END OF MEMORY? 
0026 27 26 BEQ MAKSP3 

0C28 08 INX BUMP THE POINTER 
0c29 7D 00 BC TST DRCTN WHICH DIRECTION? 
OC2C 26 04 BNE MAKS22 

OC2E DF 42 STX XSAVE SAVE POINTER 
0C30 20 OC BRA ___ MAK222 

0C32 7D 00 8B MAKS22 = TST CPYDRC 

0C35 27 OE BEQ MAKS23 

0C37 DF 42 STX XSAVE SAVE THE POINTER 
O0C39 DE 4A LIX NEWFOS GET POSITION 
OC3B 08 INX BUMP IT 

OC3C DF 4A STX NEWFOS SAVE IT 

OC3SE DE 93 MAK222 LDX TRGLIN GET TARGET 

0C40 08 INX BUMP IT 

0C41 DF 93 STX TRGLIN 

0C43 DE 42 LDX XSAVE RESTORE POINTER 
0c45 40 MAKS23 TST A TEST THE ACC. 
0C46 26 O1 BNE MAKS24 

0C48 SA DEC B DEC THE COUNTER 
OC49 4A MAKS24 DEC A 

OC4A 26 D? BNE MAKS21 

oc4ce 20 D2 BRA MAKS18 REPEAT 


OC4E CE OC 77 MAKSF3 LDX #NORMST POINT TO STRING 


TSC 6800° 


LOCN 
ocs1 
0cS4 
0C57 
OCSA 
ocsc 
OCSE 
0C40 
0C462 
0C64 
0C46 
0Cé68 
OC6A 
OC4B 
océr 
OC4F 
oc71 
0C72 
OC74 
0C76 


0C77 
0C78 
0C79 
OC7A 
OC7E 
oc7Cc 
oc7ri 
OC7E 
OC7F 
Oocgo 
oc81 
0C82 
oc8s 
0c84 
oces 
0c8éd 


0C87 


OcBA 
ocec 
OC8F 
OC92 
OoC94 
0C97 
OC9A 
ocon 
OCAO 


7C 


DE 
BD 
BL 
27 
CE 
BD 
CE 
BD 


27 


TEXT EDITING SYSTEM PAGE 35 


B2 B3 


04 83 JSR PSTRNG OUTPUT IT 
00 6C CLR MSLFLG 
03 BA JMP EDIT RETURN 
99 MAKSF4 STX FILEND SAVE POINTER 
SA STX SPCPT2 SAVE POINTER 
89 LDA A DECCNT CHECK 
14 BNE MAKSFS 
SA MAKSFS STX SPCPT2 SAVE POINTER 
38 MAKSSS = LDX SPCPT1 
40 CPX TEMF TONE? 
oc REQ MAKSP6 
LIE X DEC THE POINTER 
00 LDA A Ox GET CHAR. 
58 STX SPCPT1 SAVE FOINTER 
9A LIX SPCPT2 
DEX DEC THE POINTER 
00 STA A Ox FUT THE CHAR. 
EC BRA MAKSPS REPEAT 
MAKSF4& RTS RETURN 
NORMST FCC “NOT ENOUGH ROOM’ 
FCB 4 
* REPLACE LINES ROUTINE 
0O 81 REPLAC INC REPFLG SET FLAG 


* DELETE LINES ROUTINE 


44 DELETE LIX BUFFNT SET POINTER 

04 E9 JSR FINDT FIND TARGET 

08 2i JSR TSTOVR LIMITS? 

27 BEQ DELETO 

On 7F DELEO2 LDX #NTRCHS FOINT TO STRING 
04 83 ASR PSTRNG OUTPUT IT 

00 BR LDX #BRUFFER POINT TO BUFFER 
04 99 TDELEO4 JSR INCHAR GET A CHARACTER 
F2 BEQ DELEO2 
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LOCN 
OcA2 
OCA4 
OCAS 
OCA7 
OCA? 
ocac 
OCAF 
OCB1 
OCB3 
OCBS 
OCB9 
OCBB 
OcBD 
OCBF 
occ 
occ4 
occs 
occs 
OCCA 
occc 
Occe 
ocDo 
ocn2 
ocD4 
OCDS 
ocDs 
OCDA 
ocne 
OCcDF 
OCE1 
OCES 
OCES 
OCE7 
OCE8 
OCE9? 
OCcEB 
OCED 
OCEE 
OCFO 
OCF 1 
OCF2 
OCF 4 
OCFS 
OcF8 
OCFA 
OCFC 
OCcFE 
ODOoO 
Ono0s 
OD0S 
On0o07 
ono? 
ODOB 
OLOE 
on10 


Bi 
A? 
08 
B1 
26 
CE 
BD 
a1 
27 
CE 
BD 
20 
DE 
96 
27 
BD 
96 
27 
DE 
DF 
DE 
LF 
DF 
DE 
20 
DF 
DF 
DE 
BD 
96 
27 
DE 
DF 
4F 
SF 
9C 
27 
4c 
26 
5C 
09 
20 
97 
n7 
aD 
96 
27 
DE 
BD 
96 
26 
96 
27 
BD 
DF 
7E 


TEXT EDITING SYSTEM 
B2 B3 
00 STA 
INX 
op CMP 
F4 BNE 
00 BB LDX 
04 92 JSR 
59 CMF 
08 BEQ 
on A3 LDX 
04 83 JSR 
60 BRA 
4A DELETO LDX 
sc LDA 
15 BEQ 
OG OF JSR 
73 LDA 
02 BEQ 
99 LIX 
SA BDELE1S STX 
93 LDX 
48 STX 
59 STX 
5A LIX 
11 BRA 
58 DELET1 STX 
49 STX 
93 LDX 
08 OF JSR 
73 LDA 
02 BEQ 
99 LOX 
SA DELET2 STX 
DELE25 CLR 
CLR 
58 DELET3 CPX 
07 BEQ 
INC 
o1 BNE 
INC 
DELE35 DEX 
FS BRA 
BE DELET4 STA 
gD STA 
49 BSR 
81 LDA 
iD REQ 
48 LIX 
07 FO JSR 
JE LDA 
2c BNE 
72 LIA 
08 REQ 
07 AZ JSR 
4A STX 
OB in JMP 


A 


A 


OrX 


#CRGRET 
DELEO4 
#BUFFER 
SKIPSP 
#’Y 
DELETO 
#NLDSTR 
PSTRNG 
DELETS 
NEWPOS 
DRCTN 
DELET1 
UPONE 
OVREND 
DELE15 
FILEND 
SPCPT2 
TRGLIN 
CURPOS 
SPCFT1 
SPCFT2 
DELE25 
SFCPT1 
CURPOS 
TRGLIN 
UPONE 
OVREND 
DELET2 
FILEND 
SPCPT2 


SFCFT1 
DELET4 


DELESS 


DELETS 
CHRCNT +1 
CHRCNT 
DELCHR 
REFFLG 
DELETS 
CURFOS 
BAKONE 
EQUFLG 
DNELET7 
OVRBEG 
DELE4S 
CLRNUM 
NEWFOS 
INSERS 
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SAVE IT 


C.R.? 
REPEAT 


SKIP SPACES 
WAS IT ‘Y’ES? 


POINT TO STRING 
RETURN 

SET POINTER 
CHECK DIRECTION 


MOVE UP ONE 
LIMIT? 


GET TARGET 
MAKE CURRENT 


GET POINTER 


SAVE 

POINT TO TARGET 
MOVE UP ONE 
LIMIT? 


FOINT TO END 
SAVE POINTER 


BUMP THE COUNTER 


SAVE COUNT 


DELETE CHARACTERS 
REPLACE? 


SET POINTER 
BACKUP ONE LINE 
CHECK LIMIT 


CLEAR NUMBER 
SAVE NEW POSITION 


TSC 6800 


LOCN 
0013 
on15 
on18 
OD1B 
op1D 
OnD1F 
OD21 
0n24 
0D26 
on29 
OD2Cc 
On2E 
0n30 
0033 
ons35 
OD37 
On39 
OD3A 
on3c 
ODSE 
on4o 


on4s 
ona4as 
O47 
on4g 
On4ak 
on4n 
OD4F 
onso 


OnS2: 


ons4 
Onsé 
OnS7 
ors? 
OLSB 
Onsn 
OnSF 
Oné1 
O62 
O64 
ornés 
oriés8 
ODéA 
OnéC 
OD6E 
O0l6F 
On? 1 
Oop73 
0D74 
OD7S 
OLI77 


TEXT EDITING SYSTEM 


70 


BS 


70 
EA 


FO 


B4 
83 


07 


8C 


DELE4S STx NEWFOS 
CLR BMPFLG 
JMP INSER4 
DELETS LUX CURFOS 
CFX FILEND 
BNE NELETS 
JSR BAKONE 
STX TEMP 
LDX #BFRSTR 
JSR PSTRNG 
L.DX TEMP 
DELETS STX CURPOS 
JMP PRINTS 
DELET7Z STX NEWPOS 
LOA A TMPCHR 
STA A CHRCNT+1 
CLR A 
STA A BMPFLG 
STA A CHRCNT 
LOX BUFPNT 
JMP INSER1 


* DELETE CHARACTER BLOCK 


DELCHR LINX SPCPT2 
CPX SPCFT1 
BEQ DELCHS 
CPX FILEND 
BEQ DELCH2 
LDA A OrxX 
INX 
STX SPCFT2 
LDIx SPCPT1 
STA A Ox 
INX 
STX SFCFT1 
BRA DELCHR 
DELCH2 LIA RB CHRCNT 
LDA A CHRCNTH1 
BNE DELCS1 
DELC21 TST & 
DELCH3 BEQ DELCH4 
BDELC31 DEX 
TST DRCTN 
BNE DELC32 
STX XSAVE 
LIix TRGLIN 
DEX 
STX TRGLIN 
LIIX XSAVE 
DELC32 TST A 
BNE DELC34 
DEC & 
DELC34 DEC A 
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SAVE 


GO TO INSERT 
CHECK POSITION 
END? 


MOVE IT BACK 
SAVE POINTER 
POINT TO STRING 
OUTPUT IT 
RESTORE 


SAVE POINTER 
GET CHAR COUNT 


CLEAR FLAG 


SET FOINTER 
GO INSERT IT 


SET POINTER 
EQUAL? 


END OF FILE? 


GET A CHAR. 
RUMP THE POINTER 
SAVE 


FUT CHAR. 


SAVE POINTER 
REFEAT 
GET COUNT 


CHECK COUNT 


DEC THE POINTER 
WHICH DIRECTION? 


GET TARGET 

DEC IT 

FUT IT BACK 
RESTORE FOINTER 
TEST COUNT 


IEC THE COUNTER 


TSC 6800 TEXT EDITING SYSTEM 


LOCN 
on78 
OD7A 
op7Cc 
OD7E 


OD7F 
On80 
ops1 
OD82 
Ones 
Orle4 
ones 
On8é 
0n87 
ones 
OD89 
ODBA 
OD8SB 
opsc 
OngsD 
ODSE 
ODSF 
oD90 
Ong1 
OD92 
OD9S 
On94 
ong9s 
OD96 
Ong7 
on98s 
on99 
OD9A 
ODOB 
Ong9C 
ongD 
ONE 
OLGF 
ODAO 
ODA1 
ODA2 


OLAS 
ODA4 
OnAS 
OLAS 
OLA7 
OoDASs 
ODA? 
ODAA 
ODAB 
OnAC 
OnAD 
ODAE 


Bi 
26 
20 
DF 
39 


54 
41 
52 
47 
45 
54 
20 
4E 
4F 
54 
20 


S2 


45 
41 
43 
48 
45 
44 
21 
on 
OA 
00 
00 
00 
00 
59 
4F 
55 
20 
53 
55 
52 
45 
3F 
20 


04 


4E 
4F 
20 
4c 
49 
4E 
45 
53 
20 
44 
45 
4c 


B2 B3 
EA 
ES 
99 


BNE 
BRA 
DELCH4 STX 
DELCHS RTS 


NTRCHS FCC 


FCB 


FCC 


FCR 


NLDSTR FCC 
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DELC31 

DELC21 

FILEND SET NEW END 
RETURN 


“TARGET NOT REACHED! ’ 


$Dr$A20707070 


‘YOU SURE? ’ 


4 
“NO LINES DELETED’ 


TSC 6800 TEXT EDITING SYSTEM 


LOCN 
ODAF 
OBO 
onB1 
OnB2 
ODB3 


ODB4 
ODBS 
ODB4 
ODB?7 
OUBS 
ODB9? 
ODBA 
OUBB 
ODBC 
ODED 
ODBE 
ODBF 
onco 
opcli 
onc2 
orcs 
OonC4 
orcs 
ODCS 
onc? 
oncs 
onc? 
ODCA 


oncB 
ODCE 
opDno 
onDS 
ODDS 
opps 
oDDg 
OnDB 
ODDE 
ODE1 
ODE4 
ODES 
ODE7 
ODEA 
ODEC 
ODEE 
OnDFO 
ODF1 
ODF2 
ODF 4 
ODFé 
ODF8 


B1 
45 
54 
45 
44 
04 


42 
4F 
54 
54 
4F 
4D 
20 
4F 
46 
20 
46 
49 
4c 


B2 


Fi 
46 
Bd 
046 


BS 


Ag 


38 
63 


04 
85 
FA 


63 


63 


BFRSTR 


* CHANGE COMMAND ROUTINE 


CHANGE 


CHANG1 
CHAN12 
CHANI5S 


CHANG2 


CHANGS 


FCE 


FCC 


FCR 


JSR 
LINX 
JSR 
JSR 
REQ 
TST 
BEQ 
JMP 
INC 
JSR 
CLR 
LOA 
JSR 
BEQ 
CMP 
BEQ 
INX 
INC 
BRA 
STX 
STA 
JSR 


4 


‘BOTTOM OF FILE REACHED’ 


TSTEMF 
BUFPNT 
SKPCLS 
TSTEND 
CHAN12 


CHANIS 
CHANG? 
CHGFLG 
SETDEL 


OrxX 
TSTEND 
CHANG3 
DELIM 
CHANG 


CHANG2 
CHGEND 
STRCN2 
TSTEND 


FOINT TO BUFFER 


ERROR 

ERROR 

SET FLAG 

SET DELIMITERS 
CLEAR COUNT 

GET CHAR. 

IS IT DELIMITER? 


RUMF THE POINTER 
BUMP THE COUNT 


SAVE POINTER 
SAVE COUNT 
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LOCN 
ODFB 
ODFD 
ODFE 
OE00 
OE02 
OE03 
0E04 
OE0S 
0E07 
OEOA 
OEOD 
0E10 
OE13 
0E16 
OE19 
OE1B 
OE1D 
OE1F 
OE21 
OE23 
OE25 
OE 28 
OE2A 
OE2C 
OE2E 
OE31 
0E34 
0E37 
OE 39 
OESC 
OESF 


OE 41 
OE 44 
OE446 
OE 49 
OE4C 
OE 4E 
OES1 
0OESS3 
OESS 
0ES7 
OES9 
OESA 
OESC 
OESD 
OESF 
OES1 
OE43 
0OE6S 
OE467 
OE6A 
OE46C 


TEXT EDITING SYSTEM 


B2 BS 
01 BEQ 
INX 
44 CHAN35 STX 
4A LIX 
CHAN37 = INX 
INX 
INX 
64 STX 
OF 07 JSR 
00 85 CLR 
OA 48 JSR 
00 85 INC 
OF 14 JSR 
00 6D CLR 
6E LDX 
68 STX 
78 LOA A 
07 BEQ 
7B LOA A 
03 ENE 
OF 04 JMP 
4A CHANG4 LDX 
93 CPX 
03 BNE 
0°0 88 INC 
06 3B CHANGS JSR 
00 79 CLR 
64 LIX 
06 SA JSR 
05 BS JSR 
10 BRA 
* LOOF THROUGH 
00 79 CHANSO CLR 
64 CHANS1 LDX 
06 SA JSR 
06 4F JSR 
7A BHI 
OS DF JSR 
90 CHAS10 LITA A 
62 STA A 
91 LIA A 
63 STA A 
TST B 
6C BNE 
INC B 
87 STA B 
78 CHANS2 LIA A 
OE BEQ 
77 LIA A 
0A BNE 
OA 87 JSR 
SC CHANSS LDX 
INX 
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CHANSS 

RUMP POINTER 
BUFPNT SAVE IT 
NEWFOS 

BUMP THREE TIMES 
CHGPNT SAVE FOINTER 
SVSTPT SAVE STRING POINT 
CHGFLG 
OCCURR GET TARG & OCCUR. 
CHGFLG 
RSTSPT RESTORE STRING 
PSTZFL 
OCRCNT GET COUNT 
OCRTMF SAVE 
OCRFLG 
CHANG4 
STRCNT CHECK COUNT 
CHANG4 
CHANGY 
NEWPOS 
TRGLIN AT TARGET? 
CHANGS 
LSTFLG SET FLAG IF SO 
ZONES SET ZONE 
CHGONF CLEAR FLAG 
CHGFNT 
FIXZON SET ZONE 
FIND72 
CHAS10 
OCCURRENCES 
CHGONF 
CHGFNT SET POINTER 
FIXZON 
CMPZN2 CHECK ZONE 
CHANGS 
FIND75 
NUMBER GET NUMBER 
ZONBUF FUT IN BUFFER 
NUMBER+1 
ZONBUF +1 
CHANGS 

BUMP COUNTER 
FNONFL SET FLAG 
OCRFLG ANY OCCURR.? 
CHANGS 
ALLFLG CHANGE ALL? 
CHANGS 
NXTOCO 
LASTNO SET POINTER 


BUMP IT 


TSC 6800 


LOCN 
OESD 
OE GF 


0E71 
0E74 
0E76 
0E78 
OE7A 
OE7C 
OE 7E 
OE80 
OE82 
OE84 
OE86 
OE89 
OE BB 
OESD 
OESE 
OEBF 
OE91 
OE9S 


OE96 
OE9B 
OEVA 
OE?D 
OE9F 
OEAL 
OEAS 
OEAS 
OEAS 
OEAA 
OEAB 
OEAL 
OEAF 
OEB1 
OEBS 
OEB4 
OEBS 
OEBS 
OEBA 
OEBE 
OEBD 
OE BF 
OECI 
OECS 
OECS 


OECB 


Bl 
DF 
20 


7F 


TEXT EDITING SYSTEM 


B2 B3 
64 
DO 


79 


80 


43 


8D 


08 


00 78 


CHGPNT 
CHANSO 


STX 
BRA 


x DELETE STRING ONE 


CHANG6 INC CHGONF 
LIX OCRTMP 
BEQ CHAN61 
LDA A #1 
STA A OCRFLG 

CHAN61 STX OCRCNT 
LIX LASTNO 
STX SPCFT1 
LOA RK STRCNT 
BEQ CHAN6S 
CLR CHRCNT 
STA B CHRCNT+1 

CHAN62 BER CHANS6S 
INX 
DEC B 

BRA CHAN62 

CHAN6S STX SFPCPT2 

JSR DELCHR 


x INSERT STRING TWO 


CHANSS6 LDA B STRCN2 
BEQ CHA675 
CLR CHRCNT 
STA B CHRCNT+1 
LIX LASTNO 
STX SFCFT1 
JSR MAKSFC 
LDA BR CHRCNT+1 
LIX STRNGE 

CHAN67 INX 
LDA A Ox 
STX TEMF 
LIX LASTNO 
STA A OX 
INX 
STX LASTNO 
STX CHGFNT 
LDX TEMP 
DEC B 
BNE CHAN67 

CHAS7S5 LOA A ALLFLG 
BEQ CHANS1 
LDUX LASTNO 
STX CHGFNT 
JMF CHANS1 
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SET FLAG 
CHECK COUNT 


FIX COUNT 


GET STR. LOCATION 


CLEAR COUNT 


BUMF POINTER 
DEC THE COUNTER 
REPEAT 

SAVE POINTER 

GO DELETE 


GET COUNT 


CLEAR OUT COUNT 
SET COUNTER 
SET POINTER 


GO MAKE ROOM 
POINT TO STRING END 


BUMF IT 
GET CHAR 


PUT CHARACTER 
BUMP POINTER 
SAVE 


RESTORE 
DEC THE COUNTER 


NO ALL? 


SAVE FOINTER 
REFEAT 


* CHANGE CLEANUF AND FINISH 


CHANGS CLR OCRFLG 


CLEAR FLAG 


TSC 6800 


LOCN 
OECB 
OECD 
OECF 
OEDI 
OEDS 
OEDS 
OED7 
OED? 
OEDE 
OEDD 
OEDF 
OEE 
OEES 
OEES 
OEES 
OEEA 
OEED 
OEFO 
OEFS 
OEFS 
OEF7 
OEF9 
OEFC 
OEFD 
OEFE 
OEFF 
OF O1 
OF O04 


OFO7 
OFO9 
OF OB 
OFOD 
OF OF 
OF 11 
OF 13 


OF 14 
OF 16 
OF 18 
OF 1A 
OF 1C 
OF IE 
OF 20 


De 
DF 
DE 
DF 
96 


39 


BD 


TEXT EDITING SYSTEM 


B2 
68 
04 
oO1 
78 
6E 


4E 
S52 
50 
34 
7B 
71 


32 
4E 
u4 
SO 
71 
7H 


08 


B3 


oF 


79 
A2 


C3 


88 


31 
41 


A8 
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LIX OCRTMF GET COUNT 
BEQ CHANSO 
LIA A #1 SET FLAG 
STA A OCRFLG 
CHAN8O STX OCRCNT SET OCCUR. COUNT 
LDA A FNONFL CHECK FLAG 
BNE CHANS81 
LOA A LSTFLG 
BNE CHANG? 
CHANS1 LIX NEWFOS 
LDA A CHGONF 
BEQ CHANS2 
JSR VERLIN VERIFY CHANGE 
CHAN82 LDA A LSTFLG 
BEQ CHANS4 
CLR CHGONF CLEAR FLAG 
JMF FRINTS 
CHANS4 JSR NXTLIN FIND NEXT LINE 
STX NEWFOS SAVE FOINTER 
CPx TRGLIN TARGET LINE? 
BNE CHANSS 
INC LSTFLG SET LAST FLAG 
CHANS6 = INX RUMF 3 TIMES 
INX 
INX 
STX CHGFNT SAVE FOINTER 
JMF CHANGS REPEAT 
CHANG9 JMF ERROR REFORT ERROR 
x SAVE STRING FOINTER INFO 
SVSTPT LIX STRNGR GET FOINTER 
STX STRGR1 SAVE IT 
LIX STRNGE 
STX STRGE1 
LDA A STRCNT GET COUNT 
STA A STRCN1 SAVE IT 
RTS RETURN 
* RESTORE STRING FOINTER INFO 
RSTSPT LIX STRGEB1 GET FOINTER 
STX STRNGE RESTORE 
LDX STRGE1 
STX STRNGE 
LIA A STRCN1I GET COUNT 
STA A STRCNT RESTORE IT 
RTS RETURN 


x OVERLAY ROUTINE 


OVERLA JSR TSTEMF 


TSC 6800 


LOCN B1 
OF 24 
OF 26 
OF 28 
OF 2B 
OF 2D 
OF2F 81 
OF31 27 
OF 33 
OF36 SD 
OF37 27 
OF 39 
OF SC 
OF SE 
OF 3F 
OF 41 81 
OF 43 
OF 45 
OF 47 
OF 4A 
OF4C 26 
OF 4E 
OFS1 20 
OFS3 
OF S54 
OFS9 
OFSC 
OFSF 27 
OF61 81 
OF 63 
OF 65 
OF 67 
OF6A 20 
OF 46C 
OF SE 
OF 71 
OF 73 
OF75 
OF 77 
OF 78 
OF 79 
OF 7A 
OF7C 
OF 7E 
OF 80 
OF 81 
OF83 81 
OF85S 27 
OF 87 
OF 89 
OFBC 24 
OFSE E1 
OF9O 27 
OF92 91 
OF94 
OF 946 


TEXT EDITING SYSTEM 


B2 
20 
95 
00 
44 
00 
on 
12 


07 


03 
04 


9S 


00 


40 
00 


44 
oD 
3B 
40 
00 
08 


OB 
95 
02 
00 


B3 


8c 


3B 


71 


BB 


BB 


8c 


OVRLAO 


OVRLA1 
OVRL11 


OVRL12 
OVRL16 


OVRLA2 


OVRLAS 


OVRL35 


OVRLA4 
OVRL41 


OVRL43 


LIA 
STA 
CLR 
LIX 
LDA 
CMF 
BEQ 
JSR 
TST 
BER 
JMF 
STA 
INX 
LDA 
CMF 
BNE 
LIX 
JSR 
LIA 
BNE 
LDX 
BRA 
LDX 
JSK 
LIX 
JSR 
BEQ 
CMF 
BEQ 
STA 
JSR 
BRA 
STA 
LDX 
STX 
LDA 
LIX 
INX 
INX 
INX 
STX 
LDIX 
LIA 
INX 
STX 
CMF 
REQ 
LDX 
TST 
BNE 
CMF 
BEQ 
CMF 
BEQ 
STA 


> D> 


#$20 
DELIM 
DRCTN 
BUFF NT 
Ox 
#CRGRET 
OVRLA1 
CLASS 


OVRLAO 
SYNERR 
DELIM 


Ox 
#CRGRET 
OVRL3S 
NEWFOS 
OUTLIN 
NUMFLG 
OVRL12 


#OVRLST+8 


OVRL16 
#0VRLST 
FSTRNG 
#BUFFER 
INCHAR 
OVRLAIL 
#CRGRET 
OVRLAS 
OrX 
RUFLIM 
OVRLA2 
Orx 
#BUFFER 
BUFFNT 
#CRGRET 
NEWFOS 


TEMF 
BUFFNT 
OX 


RUFFNT 
#CRGRET 
OVRLA7 
TEMP 
URCTN 
OVRL43 
O»X 
OVRLAS 
DELIM 
OVRL4S 
Orx 
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SETUF SPACE 
AS DELIMITER 


SET POINTER TO BUFFER 
GET A CHAR. 


REPORT ERROR 
SET DELIMITER 


GET CHARACTER 


SET FOINTER 


OUTPUT CUR. LINE 


FOINT TO STRING 
POINT TO STRING 
OUTFUT IT 


FOINT TO IN BUFFER 
GET A CHAR. 


FOINT TO BUFFER 


FOINT TO FOSITION 


SAVE FOINTER 
GET A CHAR. 


RUMF FOINTER 
SAVE IT 


CHECK IT 
IS IT DELIMITER? 


FUT CHARACTER 


TSC 6800 


LOCN 
OF 98 
OF 99 
OF9B 20 
OF 9D 
OFOF 26 
OFA1 
OFA2 
OF A4 
OF ASG 
OF A7 
OFA? 
OF AR 
OFAC 20 
OF AE 
OF RO 
OF B2 
OF B4 
OF B6 
OF BS 
OF BB 
OFBD 
OF BF 
OFCO 20 
OFC2 
OFC4 
OF C7 


OFCA 
OFCE 
OFCC 
OFCD 
OFCE 
OF CF 
OF DIO 
OFT S59 
OF TI2 
OF DS 


OF D4 
OF D7 
OFD? 
OF DB 
OF DN 
OF TIF 
OFE1 
OFES 
OFES 
OFE7 
OFE? 
OFEC 
OFEE 
OFFO 


TEXT EDITING SYSTEM 


B2 B3 
OVRL45 INX 
40 STX 
pF BRA 
8C OVRLAS LDA A 
a4 BNE 
CLR A 
op STA A 
44 LIX 
OVRLSS INC A 
00 CMF BE 
03 BEQ 
INX 
F8 BRA 
8E OVRLAS STA A 
40 LIX 
59 STX 
O1 LDA A 
gsc STA A 
oc O08 JSR 
on LIA B 
44 LDx 
TiEX 
BC BRA 
4A OVRLA7Z LIX 
08 SF JSR 
03 8A OVRLAS JMF 
OVRLST FCC 
FCR 
* MOVE COMMAND 
00 80 MOVE INC 
tA BSR 
6H LIA A 
8C STA A 
93 LIX 
5A STX 
4A LIX 
598 STX 
49 LINX 
93 STX 
Or 43 JSR 
93 LIix 
48 STX 
08 A2 JMF 


TEMF 
OVRLA4 
DRCTN 
OVRLA7 


CHRCNT 
BUFFNT 


Orx 
OVRLAS 


OVRLSS 
CHRCNT+1 
TEMP 
SFCPT1 
#1 

DRCTN 
MAKSPC 
#CRGRET 
BUFPNT 


OVRL41 
NEWFOS 
VERLIN 
ELIT 


‘ OVERLAY 


MOVFLG 
COFY 
CFYIIRC 
URCTN 
TRGLIN 
SFCFT2 
NEWFOS 
SFCFT1 
CURFOS 
TRGLIN 
DELCHR 
TRGLIN 
CURFOS 
FRINTS 
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RUMF FOINTER 
CHECK DIRECTION 
CLEAR COUNT 

GET POINTER 
CHECK CHAR, 

RUMF THE FOINTER 
REPEAT 

SAVE COUNT 

SET FOINTER 


SET DIRECTION 
MAKE ROOM 


GET FOINTER 
GET FOSITION 


VERIFY LINE 
RETURN 


ta 


SET FLAG 

GO TO COFY 

WHICH DIRECTION? 
GET TARGET 

GET FOSITION 

GET CURRENT FOS. 
MAKE IT TARGET 
DELETE LINES 


FIX FOSITION 


TSsc 6800 


LOCN Bt 


OFFS 
OFFS 
OFFS 
OF FB 
OFFE 
1000 
1002 
1005 
1008 
100A 
100C 
100E 
1010 
1012 
1014 
1017 
101A 
101C 
101F 
1022 
1023 
1025 
1027 
102A 
102D 
102F 
1032 
1034 
1036 
1038 
103A 
103C 
103E 
1040 
1042 
1045 
1046 
1048 
104A 
104C 
1040 
104E 
104F 
1050 
1052 
1053 
1055 
1057 
1059 
1058 
105E 


TEXT EDITING SYSTEM 


B2 B3 


00 76 
00 75 
04 E9 


00 75 
00 76 


8c 
08 21 


04 SF 
07 E6 


04 EY 
os 21 


00 8c 


07 ES 


* COPY LINES COMMAND 


COFY LDX BUF PNT 
INC NXTFLG 
INC LINFLG 
JSR FINDT 
CPX FILEND 
BEQ COFYO 
CLR LINFLG 
CLR NXTFLG 
CPX FILBEG 
BNE COPYO2 
CPX NEWPFOS 
BEQ COFYOS 

COPYO2 LDA A DRCTN 
STA A CPYDRC 

COPYOS CLR DRCTN 
JSR TSTOVR 
BEQ COFY1 

COFYO SMP NOTFND 

COPY1 JSR FNDCRT 

~ INX 

STX SPCFT1 
LDX BUFFNT 
JSR FINDT 
JSR TSTOVR 
BNE . COFYO 
TST DRCTN 
BNE COFY1IS 
LUX NEWFOS 
STX TEMF 
LIX TRGLIN 
BRA COFY18 

COPFY1S LDX TRGLIN 
STX TEMP 
LOX NEWFOS 

COPY18 JSR FNICCRT 
INX 
STX TRGLIN 
LOX TEMP 
STX NEWFOS 
CLK A 
CLR B 

COFY2 INX 
INC A 
BNE COFY25 
INC B 

COPY25 CPX TRGLIN 
BEQ COFY3 
CFX SPCFPT1 
BNE COFY2 
LIX #OVLFST 
JSR FSTRNG 
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FOINT TO BUFFER 
SET FLAG 

SET FLAG 

FIND) TARGET 


BEGINNING? 


FIX DIRECTION 


LIMITS? 
REFORT ERROR 


FIND NEXT C.R- 
BUMP POINTER ONE 


GO FIND TARGET 
LIMITS? 
DIRECTION? 


GET POINTER 


GET TARGET 
SAVE IT 


GET NEXT C.R. 

BUMF FOINTER 

SET TARGET 

CLEAR ACCUMULATORS 
BUMP THE POINTER 
BUMF COUNT 
FINISHED? 

OVERLAP? 


POINT TO STRING 
OUTPUT IT 


TSC 4800 


LOCN 
1061 
1064 
1067 
1069 
106B 
106D 
106F 
1072 
1074 
1076 
1078 
107A 
107C 
107E 
1080 
1082 
1085 
1087 
108A 
108D 
108F 
1091 
1094 
1097 
109A 
109C 
109F 
10A1 
10A3 
10A5 
10A6 
10A9 
10AC 
10AD 
10OAF 
10B2 


10B4 
10B5 
10B6 
10B7 
10B8 
10B9 
10BA 
10BB 
10BC 
1OBD 
1OBE 
LOBF 
10C0 
1001 
10C2 
10C3 
10C4 
10C5 


Bl 
7F 
7E 
97 
D7 
84 
97 
BD 
DE 
nF 
DE 
DF 
DE 
DF 
DE 
DF 
BD 
DE 


TEXT EDITING SYSTEM 
B2 B3 
00 6C CLR 
03 SA JMP 
8E COPY3 STA 
8p STA 
01 LIA 
8C STA 
oc 08 JSR 
SA LDX 
48 STX 
58 LIX 
42 STX 
93 LOX 
58 STX 
4A LDX 
40 STX 
OC 64 JSR 
42 LIX 
00 72 CLR 
07 FO JSR 
72 LDA 
18 BEQ 
07 AS JSR 
00 83 COFY4 INC 
04 BO JSR 
48 LOX 
07 FO JSR 
49 STX 
80 LDA 
o1 REQ 
RTS 
08 A2 COFY4S JMP 
06 98 COFYS JSR 
‘CLR 
92 STA 
08 OF JSR 
EO BRA 
OVLFST FCC 


D>pDwD 


DD 


MSLFLG 
EDIT 
CHRCNT+1 
CHRCNT 
#1 
DRCTN 
MAKSFC 
SPCFT2 
CURFOS 
SPCPT1 
XSAVE 
TRGLIN 
SPCPT1 
NEWFOS 
TEMP 
MAKSSS 
XSAVE 
OVREEG 
BAKONE 


“OVRBEG 


COPYS 

CLRNUM 
CHKFLG 
RENUM2 
CURFOS 
BAKONE 
CURFOS 
MOVFLG 
COFPY45 


FRINTS 
GETNUM 


NUMBER+2 


UF ONE 
COFY4 
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RETURN 
SAVE COUNT 


SET DIRECTION 
MAKE ROOM FOR LINES 


SET CUR. FOSITION 


GET TARGET 


SET FOINTER 
MOVE LINES 
RESTORE FOINTER 


MOVE BACK ONE 
LIMIT? 


CLEAR NUMBER 
SET FLAG 

GO RENUMBER 
GET POSITION 
SET CUR. POSITION 
MOVE? 


RETURN 
GET LINE NUMBER 


“SOURCE OVERLAFS DESTINATION’ 


TSC 6800 TEXT EDITING SYSTEM 


LOCN 
10C4 
10C7 
10C8 
10C9 
10CA 
10CB 
10CC 
10cnD 
10CE 
10CF 


10D0 
10D3 
10D5 
1007 
1ODA 
10DC 
100F 
10E1 
10E4 
10E6 
10E8 
10EA 
10ER 
10ED 
1OEF 
10F2 
10F4 
10F5 
10F8 
10FA 
10FB 
10FC 
1OFF 
1100 
1102 
1104 
1106 
1107 
1109 
110C 
L10E 
1110 
1111 
1113 
1115 
1118 


1118 


Bl B2 B3 


CE 


00 


9D 


63 


3B 


ba be 


38 


Bl 


30 
71 


90 


FCEH 


x TAB SET COMMAND 


TAB LUX 
STX 
TAB2 LDX 
JSR 
STX 
ISR 
_ -BEQ 
JSR 
CMF RB 
BEQ 
BHI 
INX 
STX 
BRA 
TAB4 JSR 
STX 
CLR B 
JSR 
REQ 
TABS INC B 
PSH B 
JSR 
FUL B 
BNE 
LDX 
STA B 
INX 
STX 
CPX 
REQ 
BRA 
TABS CLR A 
LDX 
STA A 
IMF 
TABS JME 


* FRINT HEADER 


-HEADER LDX 


#TABRBUF 
TABFPNT 
BUFFNT 
SKIPSF 
BUFPNT 
TSTEND 
TABG 
CLASS 
#1 
TABR4 
TAKS 


BUFPNT 
TAB2 

BCIICON 
BUFFPNT 


TSTNUM 
TAK6 


DECNUM 


TABS 
TABFNT 
OrXx 


TABFNT 
#TABEND 
TABS 
TAB2 


TABFPNT 
O»X 
NUMSES 
SYNERR 
COMMAND 


#TABBUF 
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SET POINTER 
FOINT TO BUFFER 
SAVE 


CLASSIFY CHAR. 
IS IT A NUMBER? 


BUMP THE POINTER 
SAVE IT 


GET COLUMN 


IS IT ZERO? 
BUMF COUNT 

DEC THE COUNT 
FOINT TO TABS 
SAVE COUNT 

FIX TAB FOINTER 


CLEAR TAR 


REPORT ERROR 


SET FOINTER 


TSC 6800 


LOCN 
111E 
1120 
1122 
1125 
1128 
112A 
112D 
112F 
1131 
1134 
1136 
1139 
113B 
113C 
113D 
113E 
1141 
1142 
1144 
1146 
1149 
114C 
114E 
1150 
1152 
1155 
1156 
1158 
115B 
115C 
1150 
1160 
1141 
11462 
1164 
1146 
1168 
116A 
116D 
116E 
1170 
1172 
1174 
1177 
1179 
117B 


117E 
1180 
1183 
1186 
1188 


Bi 
DF 
DE 
BD 
BD 
27 
BD 
Ci 
26 
BD 
DF 
BD 
27 
SF 
5C 
37 
BD 
33 
26 
07 
BD 
Bn 
96 
27 
Cé 
BD 
SA 
26 
BD 
SF 
37 
BD 
33 
sc 
DE 
Ei 
26 
86 
BD 
08 
DF 
20 
96 
BD 
D1 
26 
7E 


DE 
BD 
BD 


BD 


TEXT EDITING SYSTEM 


B2 B3 
9B STX 
44 LDX 
04 92 JSR 
06 63 JSR 
1c BEQ 
07 3B HEADE2 JSR 
O1 CMF B 
E7 BNE 
07 55 JSR 
44 STX 
08 38 JSR 
40 REQ 
CLR E 
HEADE3 INC B 
FSH & 
08 2A JSR 
FUL B 
Fa BNE 
96 HEADE4 STA B 
07 AZ HEAD42 JSR 
04 4E JSR 
6A LIA A 
os BEQ 
08 LIA B 
08 CD HEAD4S JSR 
DEC B 
FA BNE 
08 CD HEADES JSR 
CLR E 
HEADSS PSH B 
06 70 JSR 
FUL B 
INC B 
OR LOX 
00 CMF R 
OA BNE 
on LDA A 
02 09 JSR 
INX 
oR STX 
05 BRA 
91 HEADS7 LIA A 
09 17 JSR 
96 HEADSS CMF &B 
El BNE 
09 30 HEADE7Z JMF 
x SET UP ZONE 
44 SZONE LDX 
04 92 JSR 
06 63 JSR 
OA REQ 
07 3B JSR 


TABPNT 
BUFFNT 
SKIFSF 
TSTEND 
HEAD42 
CLASS 
#1 
TABS 
BCDCON 
BUFF NT 
TSTNUM 
HEADE7 


DECNUM 


HEADES 
HEDCNT 
CLRNUM 
PCRLF 
NUMFLG 
HEADES 
#8 
OUTSFC 


HEAL4S 
OUTSFC 


INCNUM 


TABFNT 
Orx 
HEADS 7 
#’- 
OUTCH 


TABFNT 
HEAL'SS 
NUMBER+1 
OUTHR 
HEDCNT 
HEADSS 
NUMSE6 
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SKIF ALL SPACES 


CLASSIFY CHAR. 
IS IT NUMBER? 
ERROR 

GET NUMBER COUNT 


IS IT ZERO? 


BUMF COUNTER 

DEC NUMBER 

SAVE COUNT 

CLEAR NUMBER 
OUTPUT C.R. LoFe 
LINE NUMBERS ON? 


SET COUNT 
OUT SFACE 


CLEAR COUNT 
BUMP NUMBER 
BUMP COUNT 
GET TAB COL. 
THERE? 

SET UP ’~-’ 


OUTPUT IT 
RUMF FOINTER 


GET NUMBER 
OUTPUT IT 


REPEAT TIL DONE 


COLUMN COMMANET: 


BRUFFNT 
SKIFSF 
TSTEND 
SZONE2 
CLASS 


FOINT TO RUFFER 


CLASSIFY CHARACTER 


TSC 6800 


LOCN 
118B 
1180 
118F 
1191 
1192 
1194 
1197 
1199 
119C 
119E 
11A0 
11A2 
11A4 
11A7 
11AA 
11AC 
L1AF 
11B1 
11B3 
1185 
11Bé4 
1158 
11BB 
11BD 
11C0 
11C2 
11C4 
11C46 
11C9 


11CC 
11CE 
1101 
11D3 
11D5 
11D8 


11DB 
11DE 


11E0 
11E3 


11ES 
11E8 


11EA 


Bi 


CE 
20 


CE 
20 


CE 


20 


CE 


TEXT EDITING SYSTEM 


#1 
SZONES 
SZONES 


BUFFPNT 
#$0001 
SZONE4 
BCDCON 
BUFFENT 
NUMBER 
ZONE1 
BUFPNT 
SKIFSF 
TSTEND 
SZONES 
CLASS 
#1 
SZONE?7 
SZONES 


SZONES 
#$0136 
SZON75 
BCIICON 
BUF PNT 
NUMBER 
ZONE 2 

NUMSES6 
ERROR 
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IS IT A NUMBER? 


SAVE FOINTER 
SET COLUMN 1 


GET NUMBER 
SAVE POINTER 


FIX ZONE1 

SKIF ALL SFACES 
GO CLASSIFY 

IS IT A NUMBER? 


ERROR 
BUMP POINTER 


SET COLUMN 136 


GET NUMBER 
SAVE POINTER 


SET ZONE2 


REFORT ERROR 


x SET SPECIAL CHARATERS COMMAND 


B2 BS 
O1 CMF B 
OA BEQ 
38 BHI 
: INX 
44 SZONE2 STX 
00 O1 LItx 
07 BRA 
07 55 SZONE3 JSR 
44 STX 
90 LDX 
SE SZONE4 STX 
44 LOX 
04 92 SZONES JSR 
06 63 JSR 
oc BEQ 
07 SRE JSR 
O1 CMF BE 
OA BEQ 
14 BHI 
INX 
EC BRA 
01 36 SZONE4 LIX 
07 BRA 
07 55 SZONE7 JSR 
44 STX 
90 LIX 
60 SZON75 STX 
09 30 JMF 
04 41 SZONES JMF 
44 SET LOX 
04 92 JSR 
44 STX 
40 STX 
i2 41 LIX 
04 00 JMF 
x SET SPECIALS 
x TAB 
0O B2 STAB LDX 
on BRA 
x FILL 
00 BS SFILL LIX 
og BRA 
* EOL 
oo BS SEOL LIix 
03 BRA 
* LINO 
00 B4 SLINO LIX 


BUFFINT 
SKIFSF 
BUFFNT 
TEMF 
#CHRTBL 
EDITS 


HERE 
#TABCH 
SETC 


#F ILL 
SETC 


#E0OL 
SETC 


#LINO 


SET POINTER 


SAVE FOINTER 
FOINT TO TABLE 
GO FIND NAME 


FOINT TO TAB CHAR 


FOINT TO FILL 


FOINT TO EOL CHAR 


FOINT TO IT 


TSC 6800 


LOCN 


11ED 
11EF 
11F 1 
11F4 
11F6 
11F8 
11FA 
11FC 
11FE 
1200 
1201 
1202 
1204 
1207 
1208 
120A 
120C 
120E 
120F 
1211 
1213 
1214 
1216 
1219 
121A 
121C 
121F 
1221 
1222 
1224 
1226 
1228 
122B 
122n 
122E 
1230 
1232 
1234 
1237 


123A 
123B 
123E 
1240 


Bl 


08 
BD 
81 
39 


54 


TEXT EDITING SYSTEM PAGE 50 


B2 B3 
x SET THE CHARACTER 
40 SETC STX TEMF SAVE FOINTER 
44 LDX BUF PNT GO TO BUFFER 
04 92 JSR SKIFPSF 
30 CMP A #’= IS IT = 
3F BNE SETC8 ERROR 
40 BSR CHF RQU 
3B BNE SETCS ERROR 
3C BSR CHFRQU 
04 BNE SETC2 
; CLR A SET NULL CHAR. 
PSH A 
OF BRA SETC4 
07 3B SETC2 JSR CLASS GO CLASSIFY 
TST B 
20 BNE SETC8 ERROR? 
on CMP A #CRGRET 
29 BEQ SETCS8 
FSH A SAVE CHAR 
29 BSR CHFRQU 
24 BNE SETCS8 ERROR 
SETC4 INX 
44 STX BUF PNT SAVE POSITION 
0? A4 JSR TFORCR TEST END 
PUL A GET CHAR 
40 L DX TEMF RESTORE POINTER 
00 B3 CPX #FILe IS IT FILL CHAR? 
07 BNE SETCS 
TST A 
OE BNE SETCS4 
20 LIA A #’ SETUF SPACE 
OA BRA SETCS 
00 B4 SETCS CFX #LINO IS IT LINO? 
05 BNE SETCS 
TST A 
02 BNE SETCS4 
23 LDA A #°# SET IT 
00 SETCS STA A OX 
0? 30 JMF NUMSE6 RETURN 
04 71 SETC8 JMF SYNERR REFORT ERROR 
* CHECK FOR QUOTE 
CHFRQU INX BUMF FOINTER 
04 92 JSR SKIF'SF SKIP SPACES 
27 CMP A #’’ 
RTS 


*& SFECIAL CHARACTER TABLE 


CHRTBL FCC ‘TAB’ 


TSC 6800 


LOCN 
1242 
1243 
1244 
1245 
1247 
1248 
1249 
124A 
124B 
124C 
124E 
124F 
1250 
1251 
1252 
1254 
1255 
1256 
1257 
1258 
1259 


125B 


125C 
125F 
1261 
1264 
1264 
1268 
126A 
126C 
126E 
1270 
1273 
1275 
1277 
1279 
127B 
127E 
1280 
1282 


1285 
1287 
1289 
128B 
128E 
1290 


1292 


96 
91 


27 


OF 
E4 


27 


TEXT EDITING SYSTEM PAGE 51 


B2 B3 
FCR (¢) 

DB FOR STAB 
FCC ‘FILL’ 
FCR 0 

EO FDR SFILL 
FCC “EOL ’ 
FCB 9) 

ES ea FOE SEOL 
FCC ‘LINO’ 
FCB .¢) 

EA FOR SLINO 
FCE 0 


xX EXPAND TABS COMMAND 


08 AB EXPAND JSR TSTEMP 


44 LDX BUFFNT GET FOINTER 
04 E9 JSR FINDT FIND TARGET 
4A LDX NEWFOS SAVE IT 

0O1 LOA A #1 

8A STA A FRNFLG SET FLAG 

48 EXPAN1 STX CURFOS SET CURRENT 
93 CPX TRGLIN LAST LINE? 
03 ' BNE EXP AN2 

00 BA CLR PRNFLG CLEAR FLAG 
10 EXPAN2 BSR EXFPLIN GO DO LINE 
8A LIA A PRNFLG DONE? 

09 BEQ EXFPANS 

4A LDX NEWFOS GET FOINTER 
06 C3 JSR NXTLIN FIND NEXT LINE 
4A STX NEWPOS SAVE 

E8 BRA EXFAN1 


08 A2 EXFANS JMP FRINTS 


* EXPAND TABS IN ONE LINE 


B2 EXFLIN LIA A TABCH 


BS CMF A FILL CHECK IF FILL=TAB 
a1 BEQ EXPLI7 

oO 9D LDX #TABBUF FOINT TO TARS 

OB STX TABFPNT , 

00 LDA B OrxX GET COLUMN 

48 BEQ EXFLI7 


TSC 6800 


LOCN 
1294 
1295 
1297 
1299 
1298 
1290 
12A0 
12A1 
12A2 
12A3 
12A4 
12A6 
12A8 
12AA 
12AC 
12AE 
12AF 
1251 
12B3 
1285 
1287 
1289 
12BB 
12BC 
12RD 
12BF 
12C1 
12C3 
12C5 
12C7 
12CA 
12CC 
12CD 
12CF 
1201 
12N2 
1203 
12D5 
1207 
1208 
12DA 
12nC 


1200 
12E0 
12E2 
12E5 
12E8 
12EA 
12ED 
12F0 
12F 1 


BD 
DE 
BD 
BD 
26 
7E 
BD 
oD 
26 


TEXT EDITING SYSTEM 


B2 B83 
CLR E 
8D STA B CHRCNT 
4A LIX NEWFOS 
99 CPX FILEND 
03 BNE EXPLI1 
03 8A JMP EDIT 
EXFLI1 INX 
INX 
INX 
EXPLI2 INC E 
00 LDA A Ox 
on CMF A #CRGRET 
32 BEQ EXFLI7 
B2 CMF A TABCH 
03 BEQ EXFLI3 
INX 
F2 BRA EXPLI2 
40 EXPLI3 STX TEMP 
9B LIX TABFNT 
00 EXPL35 CMP RK Orx 
1E BCC EXFLI6 
FF LIA A #$FF 
EXPLI4 INC A 
INC B 
00 CMF B O+rX 
FA BNE EXFLI4 
BE STA A CHRCNTtH1 
40 LDX TEMF 
58 STX SFCFT1 
oc 08 JSR MAKSFC 
8E LDA B CHRCNT+1 
INC B 
B3 LDA A FILL 
00 EXPLIS STA A Orx 
INX 
DEC #B 
FA BNE EXFPLIS 
AE BRA EXPLIN 
EXPLI6 INX 
00 LDA A Ox 
ng? BNE EXFL35 
EXPLI7 RTS 
x APPEND COMMANE! 
08 AS APPEND JSR TSTEMF 
44 LDX BUFFNT 
04 92 JSR SKIF'SF 
06 63 JSR TSTEND 
03 BNE APFENL 
04 71 APFENO JMP SYNERR 
07 3B APPENIL JSR CLASS 
TST B 
F? BNE AFFENO 
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CLEAR COUNT 


FOINT TO LINE 


BUMF 3 TIMES 
FAST LINE NO. 


EUMF COUNTER 
CHECK FOR TAB 

IS IT TAB? 

RUMP THE FOINTER 
SAVE FOSITION 
CHECK COLUMN 


SET COUNT 


TAB COL. YET? 
SAVE COUNT 

SET SPACE FOINTER 
GO MAKE ROOM 

GET FILL CHARACTER 
FUT CHARACTER 

DEC COUNT 

REPEAT 

BUMF POINTER 


RETURN 


GET FOINTER 


ALL? 


GO CLASSIFY 


TSC 6800 


LOCN 
12F3 
12F6 
12F9 
12FB 
12FD 
1300 
1303 
1305 
1306 
1307 
1308 
130B 
130C 
130E 
1310 
1313 
1315 
1318 
131B 
IZLE 
1321 
1323 
1325 
1327 
132A 
1328 
132C 
132n 
132F 
1331 
1332 
1335 
1337 
1338 
1339 
1338 
1330 
133F 
1341 
1342 
1344 
1346 
1348 
1349 
134C 
1340 
134F 
1351 
1352 
1353 
1355 
1357 
1359 
1358 
135f 


Bl 
BD 
Br 
C1 
26 
Bl 
Br 
27 
4F 
4c 
36 
Bn 
32 


26 


TEXT EDITING SYSTEM 


B2 3 
of FA JSR 
O7 3K JSR 
O1 CMF 
13 BNE 
07 SS JSR 
08 38 JSR 
OB BEQ 
CLR 
APFEN2 INCA 
FSH 
08 2A JSR 
PUL 
FS BNE 
7A STA 
OF O7 AFFENS JSR 
44 LIX 
04 E? JSR 
OF 14 JSR 
oo St CLR 
00 8A INC 
4A LIX 
93 APFE3S CX 
03 ENE 
00 8A CLR 
APFEN4 INX 
INX 
INX 
7A LIA 
06 BNE 
DIEX 
07 E6 JSR 
37 BRA 
AFFENS TAR 
APFESS DEC 
1c REQ 
00 LIA 
on CMF 
03 BEQ 
INX 
F4 BRA 
38 AFPENS STX 
SE STA 
F'SH 
oc 08 JSR 
FUL 
20 LIA 
00 APFFES63 STA 
INX 
HEC 
FA BNE 
17 RRA 
58 AFPE65 STX 
40 STX 
00 APPES6~ LIA 
on CMF 


ho oo 


>D wm 


SETDEL 
CLASS 
#1 
APFENS 
BCDICON 
TSTNUM 
AFFENS 


DECNUM 


AFFEN2 
AFP FCOL 
SUSTPT 
BUF PNT 
FINDOT 

RSTSFT 
CHRCNT 
FRNFLG 
NEWFOS 
TRGLIN 
APPEN4 
FRNFLG 


AFPCOL 
APFFENS 


FNDCRT 
AF FEN7 


AFP FESS 
OX 

#CRGRET 
AF FENG 


AFFESS 
SPCFT1 
CHRCNT+1 


MAKSFC 


$’ 
OX 


AFP PESS 
AF FPEN7 
SFECFT1 
TEMF 
Orx 
#CRGRET 
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SET DELIMITERS 
CLASSIFY CHARACTER 
IS IT NUMBER? 


GET COLUMN NO. 
IS IT ZERO? 


RUMF COUNTER 


NEC NUMBER 
RESTORE COUNT 


SAVE COUNT 

SAVE DEL INFO 
GET FOINTER 

FINI! TARGET 
RESTORE DEL INFO 


SET FLAG 

SET FOINTER 
AT TARGET? 
CLEAR FLAG 
RUMF 3 TIMES 


GET COL. NUMBER 


GET TO C.R. 


LEC COUNT 


CHECK CHARACTER 


BUMF FOINTER 


SET FOSITION 


GO MAKE MORE ROOM 
SET UF SPACE 

FUT IT 

BUMF FOINTER 

DEC THE COUNT 


SET FOSITION . 


GET CHAR. 
IS IT C.R-? 


TSC 6800 


LOCN 
135F 
1361 
1362 
1363 
1365 
1367 
1369 
136C 
136E 
1370 
1372 
1374 
1376 
1379 
1378 
137D 
137F 
1381 
1384 
1386 
1387 
138A 
1380 
138F 
1391 
1394 
1396 
1398 
139A 


139D 
13A0 
13A2 
13A4 
13A6 
13A8 
13AA 


13AD 
13R0 
13B2 
13B5 
13H7 
13R9 
13KkC 
13B0 
13BF 
13C1 
13C3 


Bl 
27 
08 
SC 
20 
D7 
DF 
BD 
DE 
DF 
96 
27 
97 
Br 
DE 
DF 
DE 
DF 
BD 
DE 
SF 
BD 
BI 
9 
27 
BD 
DF 
20 
DF 
7E 


BD 
DE 
Br 
96 
26 


BI 


DF 
DE 
DF 
20 
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B2 
04 


Fé 
8E 
SA 
on 
40 
38 
7B 


B3 


43 


08 


64 


Fé 
3F 


C3 


A4 


30 


A8 
E9 


E46 


APPE67 


APPEN7 


APPE72 


APFE78 


APPENS 
APPEN? 


x SAVE 


SAVE 


SAVE4 


x WRITE 


WRITE 


BEQ AFPPES7 

INX 

INC RB 

BRA APPES66 

STA B CHRCNT+1 

STX SPCFPT2 

JSR DELCHR DELETE REST OF LINE 
LIX TEMF GET POINTER 
STX SPCFT1 

LDA A STRCNT GET COUNT 

BEQ APPE78 

STA A CHRCNT+1 

JSR MAKSFC GO MAKE ROOM 
LDX STRNGE FOINT TO STRING 
STX SPCPT1 

LDX STRNGB 

STX TEMP SET END 

JSR MAKSS5 FUT IN STRING 
LOX SPCFPT2 GET POINTER 
CLR B 

JSR BAKON2 

JSR VERLIN 

LDA A FRNFLG DONE? 

BEQ APFENS 

JSR NXTLIN FIND NEXT LINE 
STX NEWFOS 

BRA APPESS REPEAT 

STX CURPOS 

JMP PRINTS 


CURRENT FILE ON TAFE 


JSR TFORCR 

LOX FILBEG SET FOINTER 
STX SPCPT1 

LIX FILEND 

STX SPCFT2 SET END 

BSR RECORD GO RECORD IT 
JMF NUMSES 


FART OF FILE TO TAPE 


JSR TSTEMP 

LIX BUF PNT SET FOINTER 
JSR FINDT FIND) TARGET 
LIA A TIRCTN CHECK [DIRECTION 
BNE WRITE? 

JSR FNIICRT 

INX 

STX SPCFT2 SET FOINTER 
LIX NEWFOS 

STX SFCFT1 SET BEGINNING 
BRA WRITE4 


TSC 6800 


LOCN 
13C5 
13C7 
13C9 
13CC 
13C0 
13CF 
1301 


1303 
1305 
1308 
13DA 
130C 
ISDE 
13E0 
13E1 
13E2 
13E3 
13ES 
L3E7 
13E9 
I3EC 
13ED 
L3EF 
13F2 
13F3 
13F3 
13F7 
13FA 
13F 0D 
13FE 
1400 
1402 


1405 
1407 
1409 
140C 
1402 
140F 
1410 
1412 


1413 


96 
27 
CE 
09? 
26 
4A 
20 
39 


Br 


TEXT EBITING SYSTEM 


R9 
02 
2k 
98 
SA 


15 


00 
on 


02 


F4 
02 


E7 
1A 
02 
FF 
FL 


02 


B6 
09 
FF 


Fr 


09 


OF 


OF 


OF 


OF 
FF 


OF 


FF 


A4 


WRITE2 STX SPCFT1 
LOX NEWFOS 
JSR FNDIICRT 
INX 
STX SFCFT2 
WRITE4 ESR RECORD 
WRITES BRA SAVE4 
x RECORD RECORD 
RECORD LI'A A RONCH 
JSR TOUCH 
BSR TOELAY 
LIX SFCPT1 
RECOR2 CFX SFCFT2 
BEQ RECOR4 
INX 
INX 
INX 
RECO25 LIA A Ox 
CMF A #CRGRET 
REQ. RECORS 
JSR TOUCH 
INX 
’ BRA RECO2S 
RECORS JSR TOUCH 
INX 
BRA RECOR2 
RECOR4 LIA A #$1A 
JSR TOUCH 
RECORS LIX #SF FFF 
RECOR6 DEX 
BNE. RECORS 
RECOR? LIA A ROFCH 
JSR TOUCH 
x DELAY FOR TAFE 
TDELAY LOA A DELAY 
DELAY1 BEQ NELAY4 
LIX $SF FFF 
TELAY2 [DEX 
BNE DELAY2 
DEC A 
BRA DELAY 
BDELAY4 RTS 
x FUT A GAF ON 
GAF JSR TFORCR 
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SET END 
GO RECORD IT 


GO TELAY 
SET FOINTER 
LONE? 


GET FAST NUMBERS 
GET A CHARACTER 
OUTPUT IT 

BUMF THE FOINTER 
OQUTFUT IT 

SET CONTROL Z 


OUTFUT IT 
SET COUNT 


GET FACTOR 


SET COUNT 
LEC COUNT 


DONE? 


RETURN 


TAFE (40 NULLS) 
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LOCN 
1416 
1418 
141B 
141D 
141F 
1420 
1423 
1424 
1426 
1428 


142A 
1420 
142F 
1432 
1434 
1437 
1439 
143B 
143D 
143F 
1442 
1445 
1447 
1449 
144B 
144D 
1450 
1452 
1454 
1456 
1458 
145A 
145C 
145E 
1460 
1462 
1464 
1465 
1468 
146A 
1460 
146F 
1472 
1474 
1476 
1478 
147RB 


TEXT EDITING SYSTEM 


B2 B3 
B9 LDA A RONCH 
02 OF JSR TOUCH 
E8 BSR TDELAY 
28 LUA KR #40 
GAF2 CLR A 
02 OF JSR TOUCH 
DEC B 
F9 BNE GAP2 
D8 BSR RECOR7 
A7 BRA WRITES 
x READ TAPE ROUTINE 
09 A4 READ JSR TFORCR 
B7 LOA A TONCH 
02 OF JSR TOUCH 
Di BSR TDELAY 
07 AS JSR CLRNUM 
99 LIX FILEND 
40 STX TEMF 
97 CFX FILBEG 
08 BEQ READ 
07 FO JSR BAKONE 
06 98 JSR GETNUM 
99 LDX FILENE! 
35 READI BSR RDCHKE 
33 BSR ROCHKE 
31 BSR RICHKE 
02 OC REAL JSR TINCH 
on CMF A #CRGRET 
oc BEQ READS 
1A CMP A #$1A 
oc BEQ REAL4 
1F CMF A #$1F 
Fi BLS READ2 
21 ESR RDICHK2 
ED BRA REAL2 
1D REALS HSR RICHK2 
E3 BRA READ 
READ4 CLR B 
07 FS JSR BAKON2 
99 READS STX FILEND 
00 83 INC CHKFLG 
BS LDA A TOFCH 
02 OF JSR TOUCH 
40 CFX TEMF 
05 BEQ READG 
40 Lox TEMF 
06 BO JSR RENUM2 
09 90 READS JMF BOTTOL 
x READ AND) CHECK ENT 
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TURN ON TAPE 
GO DELAY 
SETUF COUNT 
SET NULL 


OUTPUT IT 
DEC COUNT 


GO DELAY 

GET END 
EMPTY? 

MOVE BACK ONE 


GET NUMBER 
FOINT TO END 


GET CHAR FROM TAPE 


IS IS CNTRL 2? 


REPEAT 


FING LAST C.R. 
SET NEW END 


GO NUMBER NEW LINES 


TSC 6800 


LOCN 
147E 
147F 
1482 
1484 
1486 
1487 
1488 
148B 
1481 
148F 


1491 


| 


A048 


SYMBOL 


ALLFLG 
APPEN2 
APFEN7 
APPE63 
APPE78 
BAKONS 
BCDCO4 
BCDC1IS 
BFRSTR 
BOTTO1 
BUF SAV 
CFIND4 
CFINI3 
CHANG1 
CHANGS 
CHAN3SS5 
CHANSS 
CHAN67 
CHANBS 
CHGFLG 
CHRTBL 
CMFZN1 
COPY 

COPY15 
COPY4 
CRLFST 


TEXT EDITING SYSTEM 
B2 B3 
RDCHKE CLR A 
02 12 RECHK2 CPX 
04 BEQ 
00 STA A 
INX 
RTS 
02 0C RDCHK3 JSR 
1A CMF A 
F9 BNE 
ng ERA 
FCE 
492 BEGFNT EQU 
ORG 
00 FIR 
ENT! 
TABLE? 
0077 AFFCOL OO7A 
1306 AFPENS 1310 
136E AFFENS 1398 
134F AFFPE6S 1357 
1386 BACKSF 0008 
0808 BAKON6 O808 
0769 BCNCOS 0778 
0761 BCICé6S 0787 
ODB4 BMFFLG OO7[ 
0990 BOTTO2 0998 
0046 CFIND O9CF 
OA1R CFINDS OA2S 
O9FC CFIN14 OAO2 
onnge CHANG2 ODES 
OE71 CHANGS OECB 
OLFE CHAN37 OEO2 
OE6A CHAN61 OE7C 
OEAA CHAN8O OENS 
OEFC CHAS10O OES1 
0085 CHGONF 0079 
1241 CLASS 0738 
0644 CMPZN2 O64F 
OFFS COFYO 101C 
103C COPY18 1042 
1094 COFY4S 10A46 
0458 CURFOS 0048 


MEMEN 
ROCHK 
O»x 


TINCH 
#$1A 

ROCHK 
REAL 


$OLi 


$A048 


START 


APFENT 
APFEN4 
AFFENS 
AFP FESS 
BAKONE 
BCDICON 
BRCLICOS 
BCIICS7 
BMF'NUM 
BUFFER 
CFINDA 
CFINDS 
CFINIS 
CHANG3 
CHANG9 
CHANSO 
CHANG62 
CHAN81 
CHAS7S 
CHGFNT 
CLASS2 
CMPZ14 
COFYO2 
COFY2 
COFYS 
DECCNT 


Ui 
3 


3 


1200 
132A 
139A 
135K 
07FO 
0735 
0770 
0789 
046A 
OOBK 
O9E4 
OA2B 
OANS 
ODF 4 
OF O04 
OE41 
OE8R 
OEDL 
OEBT 
0064 
074A 


PAGE 

CLEAR BYTE 

ENIt OF MEMORY? 

FUT CHAR 

BUMF THE FOINTER 

RETURN 

GET CHAR FROM TAPE 

IS IT TERM? 

SET END !! 
AFFENO 12EA AFPPEN 
AFPENS 1337 AFP FENG 
APPESS 1323 APFESS 
APPES7 1365 APPE72 
BAKON2 O7F6 BAKON4 
BCICOL 0757 BCDCO2 
BCDCO7 078B BCDCOS8 
BEGFNT 1492 BELL 
BMPNU4 0674 BOTTOM 
RUFLIM O4BB BUF PNT 
CFIND2 OAOS CFINDS 
CFIND? OA2B CFINI2 
CFNTST OA31 CHANGE 
CHANG4 OE28 CHANGS 
CHANI2 ODE CHANIS 
CHANS1 OF 44 CHANS2 
CHAN6S OEFP1 CHAN6S 
CHANS2 OEES CHANB4 
CHFRQU 123A CHGEND 
CHKFLG 0083 CHRCNT 
CLASS4 0754 CLRNUM 
CMPZ24 0659 CNRSTR 
COFYOS 1014 COPY1 
COPY25 1053 COPY3 
CPYDRC OO8B CRGRET 
NECNUM O82A DELAY 


v7 


12ED 
1344 
1338 
1374 
0807 
0764 
079A 
0007 
098E 
0044 
OA10 
O9E8 
ODCE 
OE31 
ODDE 
OESF 
0E96 
OEFO 
0066 
oosn 
0703 
0982 
101F 
1067 
oooD 
OOBS 


DELAY1 
DELCHS3 
DELC31 
DELET1I 
DELETS 
DELE25 
EDIT 
EDITS 
EDIT65 
EOL 
EXIT 
EXPLIN 
EXPLIS 
FILEND 
FINDL1 
FINDT2 
FINDS 
FIND63 
FIND71 
FINI77 
FNDCRT 
FNDNU2 
GAF 
HEADES 
HEADAS 
INCAMT 
INCHR4 
INSERT 
INSERS 
INSE45 
INSES1 
INS710 
LASTNO 
MAKSF 1 
MAKSF'6 
MAKS24 
MOVE 
NLDSTR 
NTRCHS 
NUMSE4 
NXTLI2 
NXTOC3 


OCRCNT. 


ONOFF 

OUTBC4 
OUTR65 
OUTHR 

OUTSPC 
OVREND 
OVRLA4 
OVRLST 
OVRL41 
PRATAL 
PRINT 
PROMPT 
RICHK2 
READS 

RECOR2 


1407 
0Dé2 
OD64 
OcDéd 
OD2E 
OCE7 
038A 
03CC 
o40n 
OORS 
0989 
1285 
12CF 
0099 
04E4 
O4FR 
0541 
0584 
OSR2 
OSF 4 
O7ES 
0788 
1413 
113C 
1152 
007C 
O4BA 
OACS 
OBIT 
OB13 
OBS3 
OBSF 
005C 
0C16 
0C74 
0c49 
OFTI4 
ODAS 


OD7F - 


o92.r 
O4CA 
OAA4 
006E 
0937 
O8ED 
O8FE 
0917 
oscn 
0073 
OF 7C 
OFCA 
OF 7E 
0485 
088s 
0023 


147F 


1460 
13DC 


DELAY2 
DELCH4 
DELC32 
DELET2 
DELET7 
DELE3S 
ENIT1 
EDITSS 
EDIT? 
EQUALS 
EXPAND 
EXPLI1 
EXPLI6 
FILL 
FINDIL2 
FIND 
FININ4 
FINDS65 
FINI72 
FINDIZ78 
FNDCR2 
FNDIINU4 
GAP2 
HEADE4 
HEADSS 
INCH 
INCH35 
INSER1 
INSERS 
INSES1 
INSE62 
INS711 
LINFLG 


‘MAKSF2 


MAKS18 
MAKSSS 
MOVFLG 
NOCURL 
NUMBER 
NUMSES 
NXTOCR 
OCCURR 
OCRFLG 
ONOF TE 
OUTBCS4 
OUTB75 
OUTLIN 
OVER 

OVRLAO 
OVRLAS 


OVRL11 


OVRL 43 
PEDIT 

PRINTS 
PSTRNG 
RIICHKS 
REALI4 

RECORS 


140C 
on7c 
on73 
OCcES 
On33 
OCF 1 
0397 
O3ni 
0416 
OAAS 
125C 
12A0 
1207 
QORS 
O4ES 
OSOA 
OS40i 
ossec 
O58 
OSFS 
O7E9 
O7BA 
141F 
1144 
11i5C 
0206 
04B7 
OAL7 
OB48 
OB2C 
OB6B 
OBBS 
0075 
oc21 
0C20 
0C64 
0080 
0074 
0090 
0930 
0OA83 
0A48 
0078 
0946 
OSF9 
0906 
OBAF 
04C1 
OF 3C 
OF 9 
OF 47 
OF 96 
0383 
osgn 
0483 
1488 
1464 
13EF 


58 


DELAY4 
DELCHS 
DELC34 
DELET3 
DELEO2 
DELE4S 
EDIT2 
EDITSS 
EDITS 
EQUFLG 
EXPAN 
EXFLI2 
EXPLI7 
FIND 
FINDT 
FININ14 
FINDS 
FINIIGS 
FINII73 
FIN702 
FNDFLG 
FNDNUS 
GETNUM 
HEADES 
HEADS? 
INCHAR 
INCNUM 
INSER2 
INSER7 
INSES2 
INSE71 
INS712 
LINO 
MAKSP3 
MAKS21 
MAK222 
MSLFLG 
NOFSTR 
NUMFLG 
NWFSTR 
NXTOCO 
OCCURS 
OCRTMF 
OUTEBCD 
OUTBC7 
OUTE78 
OUTLI2 
OVERLA 
OVRLAIL 
OVRLAG 
OVRL12 
OVRL4S 
FREROR 
FRINTS 
FSTZFL 
READ 
READS 
RECOR4 


1412 
OL7E 
on77 
OCE9 
0C94 
on13 
O3AR 
O3F1 
0429 
OO7E 
126A 
12A3 
120C 
O4Fn 
OAED 
OS21 
OSSA 
0594 
05C6 
OSARB 
0070 
O7TIA 
0698 
1158 
1172 
0499 
067C 
OADE 
OH7H 
OBSF 
OB8O 
OBC2 
OOB4 
OC4E 
0023 
OC3E 
00é6C 
0464 
006A 
O34B 
0AB7 
OA6b7 
0068 
Osl4 
0900 
0908 
OSERF 
OF 21 
OF 45 
OFAE 
OF 53 
OF98 
0444 
O8A2 
ooé.t 
142A 
1468 
13F5 


DELCHR 
DELCOL 
DELETE 
DELET4 
DELEO4 
DELIM 
EDITS 
EDITSS 
EDITSS 
ERROR 
EXPAN2 
EXFLI3 
EXPL35 
FIND. 
FINI'TO 
FINII16 
FINIG 
FINDG7 
FINII74 
FIN711 
FNDINUM 
FNIINAS 
HEATER 
HEATIE7 
HEADS8 
INCHR1 
INITLZ 
INSERS 
INSE42 
INSESS 
INSE72 
INS713 
LSTFLG 
MAKSFA4 
MAKS22 
MEMENT! 
NEWFOS 
NORMST 
NUMSET 
NXTFLG 
NXTOC1 
OCCUR4 
OFF 
OUTEC2 
OUTEBCS 
OUTCH 
OUTLI4 
OVLPST 
OVRLAZ 
OVRLA7 
OVRL16 
OVRLSS 
FRINT 
FRINI2 
FUTNUM 
READ 
READS 
RECORS 


0143 
0018 
OCBA 
OCF4 
ocgoD 
0095 
O3SEC 
O3FR 
0435 
0441 
1273 
12B1 
12B5 
04R2 
O4EE 
0526 
0565 
OSAB 
OSn0 
OSES 
O7AE 
07108 
1118 
1178 
1177 
049C 
0355 
OAES 
OAFS 
OB4S 
OBCE 
OBCS 
0088 
OCSA 
0C32 
0212 
004A 
0C77 
O?710 
0076 
OAIS 
OA76 
0958 
ospn 
O90B 
0209 
O8CB 
1084 
OFSC 
OFC2 
OF S6 
OF ASG 
0877 
ossc 
O68R 
1447 
1478 
13FA 


DELCH2 
DELC21 
DELETO 
DELETS 
DELE15 
DRCTN 
EDIT4 
EDITS 
EDITSS 
ERRSTR 
EXPANS 
EXPLI4 
FILBEG 
FINDLO 
FINDT! 
FIND2 
FIND62 
FIND? 
FIND75 
FIXZON 
FNDNU1 
FNONFL 
HEADE2 
HEAD42 
HEDCNT 
INCHR3 
INLMFL 
INSER4 
INSE43 
INSE6O 
INSE75 
INZFLG 
MAKSPC 
MAKSPS 
MAKS23 
MIKBUG 
NEXT 
NOTFND 
NUMSE2 
NXTLIN 
NXTOC2 
OCCURS 
ON 
OUTBC3 
OUTB35 
OUTHL 
OUTL15 
OVRBEG 
OVRLASZ 
OVRLAS 
OVRL3S 
PCRLF 
FRINTO 
FRNFLG 
RDCHKE 
READ2 
RECORD 
RECOR6 


ODSB 
onéi 
OCBB 
on1iB 
OCCA 
008c 
03C1 
0400 
043F 
044C 
1282 
12BB 
0097 
04E2 
O4F8 
0532 
OS7A 
OSAY 
OSDF 
O4SA 
O7B1 
0087 
112A 
1146 
0096 
O4AB 
00O7F 
OAEA 
OROA 
OB4F 
OBLS 
OOSF 
0cogs 
0cé2 
oc4s 
EOrO 
o9cc 
O45F 
0928 
06C3 
OARF 
OA79 


. 0956 


OBES 
OSEB 
0713 
O8RBC 
0072 
OF 4C 
OFC7 
OF 71 
044E 
O87E 
OOBA 
147E 
1440 
1303 
13FD 


RENUM2 
ROFCH 

SAVOCR 
SETC4 

SETDE2 
SKIPSF 
SPCFT 1 
START 
STRGE1 
STRIN4 
STRING 
SYNERR 
SZONE4 
SZON7S 
TABLE 
TABS 

TFORC2 
TOGGLE 
TSTEMP 
TSTMS4 
TSTOV2 
VERLIN 
VERSET 
WRITE2 
ZOKSTR 
ZONES 


O6B0 
OOBA 
OA7A 
1213 
0600 
0492 
0058 
0200 
0054 
0709 
0735 
0471 
11A0 
11C4 
0214 
1110 
O9B1 
O95SB 
08A8 
09Cé 
0829 
O83F 
0963 
13C5 
OASRB 
04635 


OBJECT CODE? 


§1 OD OOR1 00 
$1 13 0200 7E 
$1 13 0210 El 
$1 13 0220 DD 
$1 13 0230 41 
§1 13 0240 00 
$1 13 0250 44 
81 13 0260 00 
§1 13 0270 50 
$1 13 0280 1B 
§1 13 0290 47 
S1 13 O2A0 4E 
$1 13 O20 10 
§1 13 02C0 59 
§1 13 0200 So 
$1 13 O2EO 42 
$1 13 O2FO 41 
§1 13 0300 9f 
$1 13 0310 09 
§1 13 0320 09 
§1 13 0330 S52 
§1 13 0340 4F 
$1 13 0350 49 
§1 13 0360 02 
$1 13 0370 46 
§1 13 0380 BD 
§1 13 0390 48 
$1 13 O3A0 40 


RENUM4 
RONCH 
SEOL 
SETCS 
SETIIE4 
SKIFS2 
SPCPT2 
STRCNT 
STRING 
STRINS 
STRNGB 
SYNSTR 
SZONES 
TAB 
TABFNT 
TABS 
TFORCS 
TONCH 
TSTEND 
TSTMSS 
UFONE 
VERLI1 
VERSE2 
WRITE4 
ZONBUF 


06CO 
OOR9 
11E5 
1228 
O60E 
0498 
OOSA 
007B 
oé6cn 
0700 
004E 
0476 
11A4 
1000 
OO98 
1118 
O9B2 
OOR7 
0663 
O9CH 
O80F 
0849 
O96E 
13CF 
0062 


59 


REPFLG 
RSTSPT 
SET 
SETCS 
SETIIES 
SKPCLS 
SRCHFT 
STRCN1 
STRINI 
STRING 
STRNGE 
SZONE 
SZONES 
TABBUF 
TAB2 
TOELAY 
TINCH 
TOP 
TSTEN2 
TSTNUM 
UPONE1 
VERLI2 
VERSE4 
WRITES 
ZONE 


0081 
OF 14 
11CC 
1232 
0617 
0738 
004C 
0071 
O6TA 
O71C 
0050 
117E 
11B8 
oo9n 
10D5 
1405 
020C 
O9got 
0669 
0838 
0813 
0872 
0973 
13D1 
O61A 


REFLAC 


SAVE 
SETC 
SETC 
SFIL 
SLIN 
STAB 
STRC 
STRI 
STRI 
STRP 
SZON 
SZON 
TABC 
TAB4 
TEMP 
TMPC 
TOUE 
TSTM 
TSTN 


8 
L 
0 


N2 
N2 
N7 
NT 
E2 
E7 
H 


HR 
H 

SL 
U2 


UPONE2 


VERL 
VERS 
XCNT 
ZONE 


12 
E6 
RL 
1 


0ocs? 
139D 
11ED 
1237 
11E0 
11EA 
1108 
0086 
06E2 
0729 
0056 
1192 
11BD 
OOB2 
1OEF 
0040 
0082 
O20F 
O9BS 
O83E 
0819 
084C 
0976 
0978 
OOSE 


RESTRT 
SAVE 4 

SETC2 
SETDEL 
SKIPSA 
SNGLIN 
STACK 
STRGB1 
STRING 
STRING 
SVSTPT 
SZONE3 
SZONEB 
TABEND 
TABS 

TFORCR 
TOFCH 
TRGLIN 
TSTMS2 
TSTOVR 
VERFLG 
VERLIS 
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